home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / REFOUT / Z_GCTOKE.R00 < prev    next >
Text File  |  1996-06-04  |  910b  |  44 lines
  1.  
  2. *** Yes
  3. > > [variable(Y),
  4.  syntact_object()),
  5.  construct(-->,type => op_atom),
  6.  syntact_object([),
  7.  variable(X),
  8.  syntact_object(]),
  9.  syntact_object(,),
  10.  construct(#,type => op_atom),
  11.  syntact_object((),
  12.  variable(X),
  13.  construct(>=,type => op_atom),
  14.  construct(65,type => number),
  15.  syntact_object(,),
  16.  variable(X),
  17.  construct(=<,type => op_atom),
  18.  construct(90,type => number),
  19.  syntact_object(,),
  20.  variable(Y),
  21.  construct(=,type => op_atom),
  22.  construct(charac,type => simple_atom),
  23.  syntact_object((),
  24.  variable(X),
  25.  syntact_object()),
  26.  syntact_object()),
  27.  syntact_object(?),
  28.  construct(charac,type => simple_atom),
  29.  syntact_object((),
  30.  variable(Z),
  31.  syntact_object()),
  32.  construct(->,type => op_atom),
  33.  construct(psi2str,type => simple_atom),
  34.  syntact_object((),
  35.  construct(chr,type => simple_atom),
  36.  syntact_object((),
  37.  variable(Z),
  38.  syntact_object()),
  39.  syntact_object()),
  40.  syntact_object(.)]
  41.  
  42. *** Yes
  43. > > 
  44.