fork download
  1. countdown(1) :- write(1), !.
  2. countdown(N) :-
  3. write(N), nl,
  4. M is N - 1,
  5. countdown(M).
Success #stdin #stdout 0.02s 68352KB
stdin
countdown(5).
stdout
GNU Prolog 1.3.1
By Daniel Diaz
Copyright (C) 1999-2009 Daniel Diaz
5
4
3
2
1

yes