N(1).
N(X):-X1 is X-1,
      write(X),nl,N(X1).