fork download
  1. countdown(X) :- number(X), X < 0.
  2. countdown(X) :- number(X), X >= 0,write(X), nl, NX is X - 1, countdown(NX).
Success #stdin #stdout 0.02s 68352KB
stdin
Standard input is empty
stdout
GNU Prolog 1.3.1
By Daniel Diaz
Copyright (C) 1999-2009 Daniel Diaz