prolog su mac

/* scrive N interi consecutivi ...interi(10)*/

interi(N):-
N>0,
Y is N-1,
Numero is Y+1,
write(Numero),nl,
interi(Y).

/* scrive N interi pari con passo 2  interi(10)*/

interi2(N):-
N>0,
Y is N-2,
Numero is Y+2,
write(Numero),nl,
interi2(Y).

/* scrive N interi dispari con passo 2   interi(15) */

interi3(N):-
N>0,
Y is N-2,
Numero is Y+2,
write(Numero),nl,
interi2(Y).

grafica con prolog su mac