home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
lifeos2.zip
/
LIFE-1.02
/
TESTS
/
LF
/
PERS2.LF
< prev
next >
Wrap
Text File
|
1996-06-04
|
395b
|
29 lines
p(a).
p(1234).
p(int).
p("a little rope").
p(string).
p(3.141592654).
p(real).
p([a,b,c,d]).
p(list).
p(cons).
p(nil).
p(@).
p(@(hello=>world)).
small <| big.
sad <| funny.
dead_mouse <| small.
dead_mouse <| sad.
cheshire_cat <| big.
cheshire_cat <| funny.
p(small).
p(big).
p(sad).
p(funny).
p(dead_mouse).
p(cheshire_cat).
p(A),X<<-A,nl,nl,
p(Y),X=copy_term(Y),write(X," <| ",Y,"."),nl,fail?