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