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