countdown(0) :-write(0), nl,!.countdown :- write(X), nl,Y is X-1,countdown(Y).
countdown(15).
GNU Prolog 1.3.1 By Daniel Diaz Copyright (C) 1999-2009 Daniel Diaz no
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!