home *** CD-ROM | disk | FTP | other *** search
/ Phoenix CD 2.0 / Phoenix_CD.cdr / 02a / pctj1186.zip / CENTER.PRO next >
Text File  |  1986-09-25  |  97b  |  7 lines
  1. f(X) :- write(X), nl,
  2.         Y is X+1,
  3.         f(Y),
  4.         write(Y), nl.
  5.  
  6. test :- f(1).
  7.