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 >
Text File  |  1996-06-04  |  395b  |  29 lines
  1. p(a).
  2. p(1234).
  3. p(int).
  4. p("a little rope").
  5. p(string).
  6. p(3.141592654).
  7. p(real).
  8. p([a,b,c,d]).
  9. p(list).
  10. p(cons).
  11. p(nil).
  12. p(@).
  13. p(@(hello=>world)).
  14. small <| big.
  15. sad <| funny.
  16. dead_mouse <| small.
  17. dead_mouse <| sad.
  18. cheshire_cat <| big.
  19. cheshire_cat <| funny.
  20. p(small).
  21. p(big).
  22. p(sad).
  23. p(funny).
  24. p(dead_mouse).
  25. p(cheshire_cat).
  26.  
  27. p(A),X<<-A,nl,nl,
  28. p(Y),X=copy_term(Y),write(X," <| ",Y,"."),nl,fail?
  29.