my not first fizzbuzz

fizzbuzz.pl

% https://swish.swi-prolog.org/p/KDyjHEJd.pl

fizzbuzz(_, 0, 0, 'fizzbuzz').
fizzbuzz(_, 0, _, 'fizz').
fizzbuzz(_, _, 0, 'buzz').
fizzbuzz(X, _, _, X). % yuno what it is

buzzmyfizz(N) :-
    FIZZ is N mod 3,
    BUZZ is N mod 5,
    fizzbuzz(N, FIZZ, BUZZ, R),
    write(R), nl.

fizzmybuzz :-
    foreach(between(1, 100, N), buzzmyfizz(N)).