count(0):-!.
count(X):-
	writef('%t\n',[X]),
	succ(XN,X),
	count(XN).

:- count(100).