home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / IN / CALL1.IN < prev    next >
Text File  |  1996-06-04  |  148b  |  28 lines
  1. p(a).
  2. p(b).
  3. A=(X|call(p(X)))?
  4. ;
  5. ;
  6. .
  7. A=p(X)?
  8. .
  9. A=call(p(X))?
  10. ;
  11. ;
  12. ;
  13. .
  14. A=call(fail)?
  15. ;
  16. .
  17. A=call(succeed)?
  18. ;
  19. ;
  20. .
  21. A=call((B=1;B=2;B=3;B=4))?
  22. ;
  23. ;
  24. ;
  25. ;
  26. ;
  27. .
  28.