fork download
  1. num(1).
  2. num(X) :-
  3. X>0,
  4. write(X),
  5. X is X-1,
  6. num(X).
Success #stdin #stdout 0.02s 68352KB
stdin
num(10).
stdout
GNU Prolog 1.3.1
By Daniel Diaz
Copyright (C) 1999-2009 Daniel Diaz
10

no