home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / prolog / brklyprl.lha / Emulator / Tests / Passed / test23.pl < prev    next >
Encoding:
Text File  |  1989-04-14  |  281 b   |  12 lines
  1.  
  2. /* Copyright (C) 1988, 1989 Herve' Touati, Aquarius Project, UC Berkeley */
  3.  
  4. main :-
  5.     X =.. [ok0,ok1,ok2,ok3], write(X), nl,
  6.     Y =.. [ok4], write(Y), nl,
  7.     ok5 =.. [M], write(M), nl,
  8.     b(1,2) =.. [b,1,2],
  9.     ok6(ok7,ok8) =.. L, write(L), nl,
  10.     d(4,ok9,ok10) =.. [d,4|Z], write(Z), nl.
  11.  
  12.