clause read_tokens 2 12 enter 12 immed 32 firvararg 10 firvararg 11 call 0 vararg 10 constnil vararg 10 call 1 cut 12 vararg 9 vararg 10 proequal vararg 8 glovar 11 proequal exit xrtable p read_tokens 3 p append 3 endxrtable endclause ; clause read_tokens 2 10 keyf '.' 2 conslist functor 0 1 constant 1 pop constnil pop constnil return 10 xrtable f atom 1 a end_of_file endxrtable endclause ; clause read_tokens 3 11 keyi 26 immed 26 void lastconslist functor 0 1 constant 1 pop constnil enter 11 cut 11 exit xrtable f atom 1 a end_of_file endxrtable endclause ; clause read_tokens 3 14 enter 14 eval 8 11 pushv 11 pushb 32 le cut 14 vararg 8 firvararg 12 firvararg 13 call 0 glovar 13 vararg 9 vararg 10 depart 1 3 exit xrtable p tokenread 3 p read_tokens 3 endxrtable endclause ; clause read_tokens 3 13 keyi 37 immed 37 enter 13 cut 13 immed 37 firvararg 11 firvararg 12 call 0 glovar 12 vararg 9 vararg 10 depart 1 3 exit xrtable p tokenread 3 p read_tokens 3 endxrtable endclause ; clause read_tokens 3 13 keyi 47 immed 47 enter 13 cut 13 immed 47 firvararg 11 firvararg 12 call 0 glovar 11 glovar 12 vararg 9 vararg 10 depart 1 4 exit xrtable p tokenread 3 p after_sl 4 endxrtable endclause ; clause read_tokens 3 13 keyi 33 immed 33 void lastconslist functor 0 1 constant 1 pop firstvar 11 enter 13 cut 13 firvararg 12 call 2 glovar 12 vararg 9 vararg 11 depart 3 3 exit xrtable f atom 1 a ! p get0 1 p read_after_atom 3 endxrtable endclause ; clause read_tokens 3 13 keyi 40 immed 40 void lastconslist constant 0 firstvar 11 enter 13 cut 13 firvararg 12 call 1 glovar 12 vararg 9 vararg 11 depart 2 3 exit xrtable a ' (' p get0 1 p read_tokens 3 endxrtable endclause ; clause read_tokens 3 13 keyi 41 immed 41 void lastconslist constant 0 firstvar 11 enter 13 cut 13 firvararg 12 call 1 glovar 12 vararg 9 vararg 11 depart 2 3 exit xrtable a ')' p get0 1 p read_tokens 3 endxrtable endclause ; clause read_tokens 3 13 keyi 44 immed 44 void lastconslist constant 0 firstvar 11 enter 13 cut 13 firvararg 12 call 1 glovar 12 vararg 9 vararg 11 depart 2 3 exit xrtable a ',' p get0 1 p read_tokens 3 endxrtable endclause ; clause read_tokens 3 13 keyi 59 immed 59 void lastconslist functor 0 1 constant 1 pop firstvar 11 enter 13 cut 13 firvararg 12 call 2 glovar 12 vararg 9 vararg 11 depart 3 3 exit xrtable f atom 1 a ; p get0 1 p read_tokens 3 endxrtable endclause ; clause read_tokens 3 13 keyi 91 immed 91 void lastconslist constant 0 firstvar 11 enter 13 cut 13 firvararg 12 call 1 glovar 12 vararg 9 vararg 11 depart 2 3 exit xrtable a '[' p get0 1 p read_tokens 3 endxrtable endclause ; clause read_tokens 3 13 keyi 93 immed 93 void lastconslist constant 0 firstvar 11 enter 13 cut 13 firvararg 12 call 1 glovar 12 vararg 9 vararg 11 depart 2 3 exit xrtable a ']' p get0 1 p read_tokens 3 endxrtable endclause ; clause read_tokens 3 13 keyi 123 immed 123 void lastconslist constant 0 firstvar 11 enter 13 cut 13 firvararg 12 call 1 glovar 12 vararg 9 vararg 11 depart 2 3 exit xrtable a '{' p get0 1 p read_tokens 3 endxrtable endclause ; clause read_tokens 3 13 keyi 124 immed 124 void lastconslist constant 0 firstvar 11 enter 13 cut 13 firvararg 12 call 1 glovar 12 vararg 9 vararg 11 depart 2 3 exit xrtable a '|' p get0 1 p read_tokens 3 endxrtable endclause ; clause read_tokens 3 13 keyi 125 immed 125 void lastconslist constant 0 firstvar 11 enter 13 cut 13 firvararg 12 call 1 glovar 12 vararg 9 vararg 11 depart 2 3 exit xrtable a '}' p get0 1 p read_tokens 3 endxrtable endclause ; clause read_tokens 3 13 keyi 46 immed 46 enter 13 cut 13 immed 46 firvararg 11 firvararg 12 call 0 glovar 11 glovar 12 vararg 9 vararg 10 depart 1 4 exit xrtable p tokenread 3 p after_fs 4 endxrtable endclause ; clause read_tokens 3 14 keyi 34 immed 34 void lastconslist functor 0 1 firstvar 11 pop firstvar 12 enter 14 cut 14 vararg 11 immed 34 firvararg 13 call 1 glovar 13 vararg 9 vararg 12 depart 2 3 exit xrtable f string 1 p read_string 3 p read_tokens 3 endxrtable endclause ; clause read_tokens 3 14 keyi 39 immed 39 void lastconslist functor 0 1 firstvar 11 pop firstvar 12 enter 14 cut 14 immed 39 vararg 11 firvararg 13 call 1 glovar 13 vararg 9 vararg 12 depart 2 3 exit xrtable f atom 1 p tokenread 3 p read_after_atom 3 endxrtable endclause ; clause read_tokens 3 17 voidn 2 lastconslist functor 0 2 firstvar 11 firstvar 12 pop firstvar 13 enter 17 vararg 8 firvararg 14 call 1 eval 14 15 pushb 2 pushv 15 le pushv 15 pushb 3 le cut 17 vararg 8 vararg 12 firvararg 16 call 2 vararg 9 lastfunctor 3 2 var 12 var 11 call 4 cut 17 glovar 16 vararg 9 vararg 13 depart 5 3 exit xrtable f var 2 p char_class 2 p tokenread 3 f = 2 p read_lookup 2 p read_tokens 3 endxrtable endclause ; clause read_tokens 3 15 voidn 2 lastconslist functor 0 1 firstvar 11 pop firstvar 12 enter 15 eval 8 13 pushb 48 pushv 13 le pushv 13 pushb 57 le cut 15 vararg 8 vararg 11 firvararg 14 call 1 glovar 14 vararg 9 vararg 12 depart 2 3 exit xrtable f integer 1 p tokenread 3 p read_tokens 3 endxrtable endclause ; clause read_tokens 3 15 voidn 2 lastconslist functor 0 1 firstvar 11 pop firstvar 12 enter 15 eval 8 13 pushv 13 pushb 97 ge pushv 13 pushb 122 le cut 15 vararg 8 vararg 11 firvararg 14 call 1 glovar 14 vararg 9 vararg 12 depart 2 3 exit xrtable f atom 1 p tokenread 3 p read_after_atom 3 endxrtable endclause ; clause read_tokens 3 14 voidn 2 lastconslist functor 0 1 firstvar 11 pop firstvar 12 enter 14 vararg 8 vararg 11 firvararg 13 call 1 glovar 13 vararg 9 vararg 12 depart 2 3 exit xrtable f atom 1 p tokenread 3 p read_after_atom 3 endxrtable endclause ; clause read_after_atom 3 13 keyi 40 immed 40 void lastconslist constant 0 firstvar 11 enter 13 cut 13 firvararg 12 call 1 glovar 12 vararg 9 vararg 11 depart 2 3 exit xrtable a '(' p get0 1 p read_tokens 3 endxrtable endclause ; clause read_after_atom 3 11 enter 11 vararg 8 vararg 9 vararg 10 depart 0 3 exit xrtable p read_tokens 3 endxrtable endclause ; clause read_string 3 12 enter 12 firvararg 11 call 0 glovar 11 vararg 8 vararg 9 vararg 10 depart 1 4 exit xrtable p get0 1 p read_string 4 endxrtable endclause ; clause read_string 4 12 keyi 26 immed 26 constnil void immed 26 enter 12 cut 12 exit xrtable endxrtable endclause ; clause read_string 4 13 voidn 2 var 8 enter 13 firvararg 12 call 0 glovar 12 vararg 8 vararg 9 vararg 11 depart 1 4 exit xrtable p get0 1 p more_string 4 endxrtable endclause ; clause read_string 4 13 void conslist var 8 firstvar 12 pop enter 13 vararg 12 vararg 10 vararg 11 depart 0 3 exit xrtable p read_string 3 endxrtable endclause ; clause more_string 4 13 void var 8 conslist var 8 firstvar 12 pop enter 13 cut 13 vararg 12 vararg 8 vararg 11 depart 0 3 exit xrtable p read_string 3 endxrtable endclause ; clause more_string 4 12 voidn 2 constnil var 8 return 12 xrtable endxrtable endclause ; clause after_sl 4 12 enter 12 proint 8 cut 12 vararg 9 vararg 10 vararg 11 depart 0 3 exit xrtable p read_tokens 3 endxrtable endclause ; clause after_sl 4 13 voidn 3 lastconslist functor 0 1 var 8 pop firstvar 12 enter 13 vararg 9 vararg 10 vararg 12 depart 1 3 exit xrtable f atom 1 p read_after_atom 3 endxrtable endclause ; clause after_fs 4 12 void immed 26 void constnil enter 12 cut 12 exit xrtable endxrtable endclause ; clause after_fs 4 13 voidn 3 constnil enter 13 eval 9 12 pushv 12 pushb 32 le cut 13 exit xrtable endxrtable endclause ; clause after_fs 4 13 voidn 3 lastconslist functor 0 1 var 8 pop firstvar 12 enter 13 vararg 9 vararg 10 vararg 12 depart 1 3 exit xrtable f atom 1 p read_after_atom 3 endxrtable endclause ; clause read_lookup 2 10 void lastfunctor 0 2 constant 1 enter 10 cut 10 exit xrtable f = 2 a '_' endxrtable endclause ; clause read_lookup 2 10 keyf '.' 2 conslist var 9 void pop enter 10 cut 10 exit xrtable endxrtable endclause ; clause read_lookup 2 11 keyf '.' 2 conslist void firstvar 10 pop enter 11 vararg 10 vararg 9 depart 0 2 exit xrtable p read_lookup 2 endxrtable endclause ; clause read 1 10 enter 10 vararg 8 glofirvar 9 depart 0 2 exit xrtable p read 2 endxrtable endclause ; clause read 2 12 enter 12 call 0 firvararg 10 vararg 9 call 1 vararg 10 firvararg 11 call 2 cut 12 vararg 8 glovar 11 proequal exit xrtable p repeat 0 p read_tokens 2 p read_catch 2 endxrtable endclause ; clause read_catch 2 11 enter 11 vararg 8 constant 0 vararg 9 firvararg 10 call 1 glovar 10 depart 2 1 exit xrtable i 1200 p read 4 p all_read 1 endxrtable endclause ; clause read_catch 2 10 enter 10 vararg 8 depart 0 1 exit xrtable p syntax_error 1 endxrtable endclause ; clause all_read 1 9 keya '[]' constnil enter 9 cut 9 exit xrtable endxrtable endclause ; clause all_read 1 9 enter 9 immed 1 constant 0 vararg 8 depart 1 3 exit xrtable a no_culprit p syntax_error 3 endxrtable endclause ; clause expect 3 11 void conslist var 8 var 10 pop enter 11 cut 11 exit xrtable endxrtable endclause ; clause expect 3 11 enter 11 immed 2 vararg 8 vararg 9 depart 0 3 exit xrtable p syntax_error 3 endxrtable endclause ; clause read 4 14 keyf '.' 2 conslist firstvar 12 firstvar 13 pop enter 14 vararg 12 vararg 13 vararg 9 vararg 10 vararg 11 depart 0 5 exit xrtable p read 5 endxrtable endclause ; clause read 4 12 keya '[]' constnil enter 12 immed 3 constant 0 constnil depart 1 3 exit xrtable a no_culprit p syntax_error 3 endxrtable endclause ; clause read 5 14 keyf var 2 functor 0 2 firstvar 13 void pop enter 14 cut 14 vararg 9 vararg 13 vararg 10 vararg 11 vararg 12 depart 1 5 exit xrtable f var 2 p exprtl0 5 endxrtable endclause ; clause read 5 17 keyf atom 1 functor 0 1 constant 1 pop conslist functor 2 1 firstvar 13 pop firstvar 14 pop enter 17 eval 13 15 pushv 15 neg firstresult 16 cut 17 vararg 14 vararg 16 vararg 10 vararg 11 vararg 12 depart 3 5 exit xrtable f atom 1 a - f integer 1 p exprtl0 5 endxrtable endclause ; clause read 5 21 keyf atom 1 functor 0 1 firstvar 13 pop conslist constant 1 firstvar 14 pop enter 21 cut 21 vararg 14 constant 2 firvararg 15 firvararg 16 call 3 vararg 16 firvararg 17 firvararg 18 immed 1 firvararg 19 call 4 firvararg 20 vararg 13 vararg 19 profunctor immed 1 vararg 20 vararg 15 proarg vararg 17 immed 2 vararg 20 call 5 cut 21 glovar 18 glovar 20 vararg 10 vararg 11 vararg 12 depart 6 5 exit xrtable f atom 1 a '(' i 999 p read 4 p read_args 5 p fillrest 3 p exprtl0 5 endxrtable endclause ; clause read 5 18 keyf atom 1 functor 0 1 firstvar 13 pop enter 18 vararg 13 firvararg 14 firvararg 15 firvararg 16 firvararg 17 constant 1 call 2 cut 18 vararg 13 glovar 15 glovar 14 vararg 9 vararg 10 vararg 11 vararg 12 depart 3 7 exit xrtable f atom 1 a prefix p current_op 6 p after_prefix_op 7 endxrtable endclause ; clause read 5 14 keyf atom 1 functor 0 1 firstvar 13 pop enter 14 cut 14 vararg 9 vararg 13 vararg 10 vararg 11 vararg 12 depart 1 5 exit xrtable f atom 1 p exprtl0 5 endxrtable endclause ; clause read 5 14 keyf integer 1 functor 0 1 firstvar 13 pop enter 14 cut 14 vararg 9 vararg 13 vararg 10 vararg 11 vararg 12 depart 1 5 exit xrtable f integer 1 p exprtl0 5 endxrtable endclause ; clause read 5 14 keya '[' constant 0 conslist constant 1 firstvar 13 pop enter 14 cut 14 vararg 13 constnil vararg 10 vararg 11 vararg 12 depart 2 5 exit xrtable a '[' a ']' p exprtl0 5 endxrtable endclause ; clause read 5 17 keya '[' constant 0 enter 17 cut 17 vararg 9 constant 1 firvararg 13 firvararg 14 call 2 vararg 14 firvararg 15 firvararg 16 call 3 cut 17 glovar 16 conslist var 13 var 15 poparg vararg 10 vararg 11 vararg 12 depart 4 5 exit xrtable a '[' i 999 p read 4 p read_list 3 p exprtl0 5 endxrtable endclause ; clause read 5 16 keya '(' constant 0 enter 16 cut 16 vararg 9 constant 1 firvararg 13 firvararg 14 call 2 constant 3 vararg 14 firvararg 15 call 4 cut 16 glovar 15 glovar 13 vararg 10 vararg 11 vararg 12 depart 5 5 exit xrtable a '(' i 1200 p read 4 a ')' p expect 3 p exprtl0 5 endxrtable endclause ; clause read 5 16 keya ' (' constant 0 enter 16 cut 16 vararg 9 constant 1 firvararg 13 firvararg 14 call 2 constant 3 vararg 14 firvararg 15 call 4 cut 16 glovar 15 glovar 13 vararg 10 vararg 11 vararg 12 depart 5 5 exit xrtable a ' (' i 1200 p read 4 a ')' p expect 3 p exprtl0 5 endxrtable endclause ; clause read 5 14 keya '{' constant 0 conslist constant 1 firstvar 13 pop enter 14 cut 14 vararg 13 constant 2 vararg 10 vararg 11 vararg 12 depart 3 5 exit xrtable a '{' a '}' a '{}' p exprtl0 5 endxrtable endclause ; clause read 5 16 keya '{' constant 0 enter 16 cut 16 vararg 9 constant 1 firvararg 13 firvararg 14 call 2 constant 3 vararg 14 firvararg 15 call 4 cut 16 glovar 15 functor 5 1 var 13 poparg vararg 10 vararg 11 vararg 12 depart 6 5 exit xrtable a '{' i 1200 p read 4 a '}' p expect 3 f '{}' 1 p exprtl0 5 endxrtable endclause ; clause read 5 14 keyf string 1 functor 0 1 firstvar 13 pop enter 14 cut 14 vararg 9 vararg 13 vararg 10 vararg 11 vararg 12 depart 1 5 exit xrtable f string 1 p exprtl0 5 endxrtable endclause ; clause read 5 13 enter 13 immed 4 vararg 8 vararg 9 depart 0 3 exit xrtable p syntax_error 3 endxrtable endclause ; clause fillrest 3 11 keya '[]' constnil voidn 2 return 11 xrtable endxrtable endclause ; clause fillrest 3 14 keyf '.' 2 conslist firstvar 11 firstvar 12 pop enter 14 vararg 9 vararg 10 vararg 11 proarg vararg 9 firvararg 13 prosucc vararg 12 glovar 13 vararg 10 depart 0 3 exit xrtable p fillrest 3 endxrtable endclause ; clause read_args 5 18 keyf '.' 2 conslist constant 0 firstvar 13 pop conslist firstvar 14 firstvar 15 pop enter 18 cut 18 vararg 13 constant 1 vararg 14 firvararg 16 call 2 cut 18 vararg 11 firvararg 17 prosucc glovar 16 vararg 15 vararg 10 glovar 17 vararg 12 depart 3 5 exit xrtable a ',' i 999 p read 4 p read_args 5 endxrtable endclause ; clause read_args 5 13 keyf '.' 2 conslist constant 0 var 10 pop constnil voidn 2 var 11 enter 13 cut 13 exit xrtable a ')' endxrtable endclause ; clause read_args 5 13 enter 13 immed 5 constant 0 vararg 8 depart 1 3 exit xrtable a no_culprit p syntax_error 3 endxrtable endclause ; clause read_list 3 15 keyf '.' 2 conslist constant 0 firstvar 11 pop conslist firstvar 12 firstvar 13 pop enter 15 cut 15 vararg 11 constant 1 vararg 12 firvararg 14 call 2 cut 15 glovar 14 vararg 13 vararg 10 depart 3 3 exit xrtable a ',' i 999 p read 4 p read_list 3 endxrtable endclause ; clause read_list 3 13 keyf '.' 2 conslist constant 0 firstvar 11 pop enter 13 cut 13 vararg 11 constant 1 vararg 9 firvararg 12 call 2 cut 13 constant 3 glovar 12 vararg 10 depart 4 3 exit xrtable a '|' i 999 p read 4 a ']' p expect 3 endxrtable endclause ; clause read_list 3 11 keyf '.' 2 conslist constant 0 var 10 pop constnil enter 11 cut 11 exit xrtable a ']' endxrtable endclause ; clause read_list 3 11 enter 11 immed 6 constant 0 vararg 8 depart 1 3 exit xrtable a no_culprit p syntax_error 3 endxrtable endclause ; clause after_prefix_op 7 17 enter 17 eval 12 15 eval 9 16 pushv 15 pushv 16 lt cut 17 immed 7 functor 0 2 var 8 var 12 poparg vararg 11 depart 1 3 exit xrtable f ',' 2 p syntax_error 3 endxrtable endclause ; clause after_prefix_op 7 16 enter 16 vararg 11 firvararg 15 call 0 vararg 15 vararg 9 call 1 glovar 15 vararg 9 vararg 8 vararg 12 vararg 13 vararg 14 depart 2 6 exit xrtable p peepop 2 p prefix_is_atom 2 p exprtl 6 endxrtable endclause ; clause after_prefix_op 7 18 enter 18 vararg 11 vararg 10 firvararg 15 firvararg 16 call 0 firvararg 17 vararg 8 immed 1 profunctor immed 1 vararg 17 vararg 15 proarg cut 18 glovar 16 vararg 9 glovar 17 vararg 12 vararg 13 vararg 14 depart 1 6 exit xrtable p read 4 p exprtl 6 endxrtable endclause ; clause peepop 2 12 keyf '.' 2 conslist functor 0 1 firstvar 10 pop conslist constant 1 firstvar 11 pop pop lastconslist functor 0 1 var 10 pop lastconslist constant 1 var 11 enter 10 cut 10 exit xrtable f atom 1 a '(' endxrtable endclause ; clause peepop 2 16 keyf '.' 2 conslist functor 0 1 firstvar 10 pop firstvar 15 pop lastconslist functor 1 4 var 10 firstvar 11 firstvar 12 firstvar 13 pop var 15 enter 15 vararg 10 vararg 11 vararg 12 vararg 13 glofirvar 14 constant 2 depart 3 6 exit xrtable f atom 1 f infixop 4 a infix p current_op 6 endxrtable endclause ; clause peepop 2 16 keyf '.' 2 conslist functor 0 1 firstvar 10 pop firstvar 15 pop lastconslist functor 1 3 var 10 firstvar 11 firstvar 12 pop var 15 enter 15 vararg 10 vararg 11 vararg 12 glofirvar 13 glofirvar 14 constant 2 depart 3 6 exit xrtable f atom 1 f postfixop 3 a postfix p current_op 6 endxrtable endclause ; clause peepop 2 10 void var 8 return 10 xrtable endxrtable endclause ; clause prefix_is_atom 2 11 keyf '.' 2 conslist firstvar 10 void pop enter 11 vararg 10 vararg 9 depart 0 2 exit xrtable p prefix_is_atom 2 endxrtable endclause ; clause prefix_is_atom 2 13 keyf infixop 4 functor 0 4 void firstvar 10 voidn 2 pop enter 13 eval 10 11 eval 9 12 pushv 11 pushv 12 ge exit xrtable f infixop 4 endxrtable endclause ; clause prefix_is_atom 2 13 keyf postfixop 3 functor 0 3 void firstvar 10 void pop enter 13 eval 10 11 eval 9 12 pushv 11 pushv 12 ge exit xrtable f postfixop 3 endxrtable endclause ; clause prefix_is_atom 2 10 keya ')' constant 0 void return 10 xrtable a ')' endxrtable endclause ; clause prefix_is_atom 2 10 keya ']' constant 0 void return 10 xrtable a ']' endxrtable endclause ; clause prefix_is_atom 2 10 keya '}' constant 0 void return 10 xrtable a '}' endxrtable endclause ; clause prefix_is_atom 2 11 keya '|' constant 0 enter 11 eval 9 10 pushi 1 pushv 10 ge exit xrtable a '|' i 1100 endxrtable endclause ; clause prefix_is_atom 2 11 keya ',' constant 0 enter 11 eval 9 10 pushi 1 pushv 10 ge exit xrtable a ',' i 1000 endxrtable endclause ; clause prefix_is_atom 2 10 keya '[]' constnil void return 10 xrtable endxrtable endclause ; clause exprtl0 5 23 keyf '.' 2 conslist functor 0 1 firstvar 13 pop firstvar 14 pop enter 23 vararg 13 firvararg 15 firvararg 16 firvararg 17 firvararg 18 constant 1 call 2 vararg 13 firvararg 19 firvararg 20 firvararg 21 firvararg 22 constant 3 call 2 cut 23 disjunct 31 conslist functor 4 4 var 13 var 19 var 20 var 21 poparg var 14 poparg immed 0 vararg 9 vararg 10 vararg 11 vararg 12 depart 5 6 continue 28 endor conslist functor 6 3 var 13 var 15 var 16 poparg var 14 poparg immed 0 vararg 9 vararg 10 vararg 11 vararg 12 depart 5 6 exit xrtable f atom 1 a postfix p current_op 6 a infix f infixop 4 p exprtl 6 f postfixop 3 endxrtable endclause ; clause exprtl0 5 19 keyf '.' 2 conslist functor 0 1 firstvar 13 pop firstvar 14 pop enter 19 vararg 13 firvararg 15 firvararg 16 firvararg 17 firvararg 18 constant 1 call 2 cut 19 conslist functor 3 4 var 13 var 15 var 16 var 17 poparg var 14 poparg immed 0 vararg 9 vararg 10 vararg 11 vararg 12 depart 4 6 exit xrtable f atom 1 a infix p current_op 6 f infixop 4 p exprtl 6 endxrtable endclause ; clause exprtl0 5 19 keyf '.' 2 conslist functor 0 1 firstvar 13 pop firstvar 14 pop enter 19 vararg 13 firvararg 15 firvararg 16 firvararg 17 firvararg 18 constant 1 call 2 cut 19 conslist functor 3 3 var 13 var 15 var 16 poparg var 14 poparg immed 0 vararg 9 vararg 10 vararg 11 vararg 12 depart 4 6 exit xrtable f atom 1 a postfix p current_op 6 f postfixop 3 p exprtl 6 endxrtable endclause ; clause exprtl0 5 17 keyf '.' 2 conslist constant 0 firstvar 13 pop enter 17 eval 10 14 pushv 14 pushi 1 ge cut 17 vararg 13 constant 1 firvararg 15 firvararg 16 call 2 cut 17 glovar 16 constant 1 functor 3 2 var 9 var 15 poparg vararg 10 vararg 11 vararg 12 depart 4 6 exit xrtable a ',' i 1000 p read 4 f ',' 2 p exprtl 6 endxrtable endclause ; clause exprtl0 5 17 keyf '.' 2 conslist constant 0 firstvar 13 pop enter 17 eval 10 14 pushv 14 pushi 1 ge cut 17 vararg 13 constant 1 firvararg 15 firvararg 16 call 2 cut 17 glovar 16 constant 1 functor 3 2 var 9 var 15 poparg vararg 10 vararg 11 vararg 12 depart 4 6 exit xrtable a '|' i 1100 p read 4 f ; 2 p exprtl 6 endxrtable endclause ; clause exprtl0 5 16 keyf '.' 2 conslist firstvar 13 firstvar 14 pop enter 16 vararg 13 firvararg 15 call 0 cut 16 immed 8 glovar 15 lastconslist var 13 var 14 depart 1 3 exit xrtable p cant_follow_expr 2 p syntax_error 3 endxrtable endclause ; clause exprtl0 5 13 voidn 3 var 9 var 8 return 13 xrtable endxrtable endclause ; clause cant_follow_expr 2 10 keyf atom 1 functor 0 1 void pop constant 1 return 10 xrtable f atom 1 a atom endxrtable endclause ; clause cant_follow_expr 2 10 keyf var 2 functor 0 2 voidn 2 pop constant 1 return 10 xrtable f var 2 a variable endxrtable endclause ; clause cant_follow_expr 2 10 keyf integer 1 functor 0 1 void pop constant 1 return 10 xrtable f integer 1 a integer endxrtable endclause ; clause cant_follow_expr 2 10 keyf string 1 functor 0 1 void pop constant 1 return 10 xrtable f string 1 a string endxrtable endclause ; clause cant_follow_expr 2 10 keya ' (' constant 0 constant 1 return 10 xrtable a ' (' a bracket endxrtable endclause ; clause cant_follow_expr 2 10 keya '(' constant 0 constant 1 return 10 xrtable a '(' a bracket endxrtable endclause ; clause cant_follow_expr 2 10 keya '[' constant 0 constant 1 return 10 xrtable a '[' a bracket endxrtable endclause ; clause cant_follow_expr 2 10 keya '{' constant 0 constant 1 return 10 xrtable a '{' a bracket endxrtable endclause ; clause exprtl 6 26 keyf '.' 2 conslist functor 0 4 firstvar 14 firstvar 15 firstvar 16 firstvar 17 pop firstvar 18 pop enter 26 eval 11 19 eval 16 20 pushv 19 pushv 20 ge eval 9 21 eval 15 22 pushv 21 pushv 22 le cut 26 vararg 18 vararg 17 firvararg 23 firvararg 24 call 1 firvararg 25 vararg 14 immed 2 profunctor immed 1 vararg 25 vararg 10 proarg immed 2 vararg 25 vararg 23 proarg glovar 24 vararg 16 glovar 25 vararg 11 vararg 12 vararg 13 depart 2 6 exit xrtable f infixop 4 p read 4 p exprtl 6 endxrtable endclause ; clause exprtl 6 24 keyf '.' 2 conslist functor 0 3 firstvar 14 firstvar 15 firstvar 16 pop firstvar 17 pop enter 24 eval 11 18 eval 16 19 pushv 18 pushv 19 ge eval 9 20 eval 15 21 pushv 20 pushv 21 le cut 24 firvararg 22 vararg 14 immed 1 profunctor immed 1 vararg 22 vararg 10 proarg vararg 17 firvararg 23 call 1 glovar 23 vararg 16 glovar 22 vararg 11 vararg 12 vararg 13 depart 2 6 exit xrtable f postfixop 3 p peepop 2 p exprtl 6 endxrtable endclause ; clause exprtl 6 19 keyf '.' 2 conslist constant 0 firstvar 14 pop enter 19 eval 11 15 pushv 15 pushi 1 ge eval 9 16 pushv 16 pushi 1 lt cut 19 vararg 14 constant 1 firvararg 17 firvararg 18 call 2 glovar 18 constant 1 functor 3 2 var 10 var 17 poparg vararg 11 vararg 12 vararg 13 depart 4 6 exit xrtable a ',' i 1000 p read 4 f ',' 2 p exprtl 6 endxrtable endclause ; clause exprtl 6 19 keyf '.' 2 conslist constant 0 firstvar 14 pop enter 19 eval 11 15 pushv 15 pushi 1 ge eval 9 16 pushv 16 pushi 1 lt cut 19 vararg 14 constant 1 firvararg 17 firvararg 18 call 2 glovar 18 constant 1 functor 3 2 var 10 var 17 poparg vararg 11 vararg 12 vararg 13 depart 4 6 exit xrtable a '|' i 1100 p read 4 f ; 2 p exprtl 6 endxrtable endclause ; clause exprtl 6 14 voidn 4 var 10 var 8 return 14 xrtable endxrtable endclause ; clause syntax_error 3 14 enter 14 constant 0 call 1 vararg 8 firvararg 11 call 2 vararg 11 call 1 call 3 vararg 9 call 4 vararg 10 firvararg 12 call 5 constant 6 functor 7 1 var 12 poparg firvararg 13 call 8 cut 14 fail exit xrtable a 'Syntax Error: ' p tokenput 1 p error_message 2 p nl 0 p show_culprit 1 p length 2 a syntax_error f length 1 p recordz 3 endxrtable endclause ; clause show_culprit 1 9 keya no_culprit constant 0 enter 9 cut 9 exit xrtable a no_culprit endxrtable endclause ; clause show_culprit 1 9 enter 9 constant 0 call 1 vararg 8 call 2 depart 3 0 exit xrtable a 'Culprit: ' p tokenput 1 p display_token 1 p nl 0 endxrtable endclause ; clause syntax_error 1 20 enter 20 constant 0 functor 1 1 firstvar 9 poparg firvararg 10 call 2 vararg 10 call 3 vararg 8 firvararg 11 call 4 eval 11 12 eval 9 13 pushv 12 pushv 13 sub firstresult 14 constant 5 call 6 vararg 8 vararg 14 call 7 immed 1 firvararg 15 firvararg 16 firvararg 17 firvararg 18 firvararg 19 call 8 vararg 15 vararg 16 vararg 17 call 9 call 10 cut 20 fail exit xrtable a syntax_error f length 1 p recorded 3 p erase 1 p length 2 a 'Context: ' p tokenput 1 p display_list 2 p get_file_status 6 p read_info 3 p nl 0 endxrtable endclause ; clause display_list 2 10 void immed 0 enter 10 constant 0 call 1 cut 10 vararg 8 constant 2 depart 3 2 exit xrtable a '<>' p tokenput 1 i 9999 p display_list 2 endxrtable endclause ; clause display_list 2 13 keyf '.' 2 conslist firstvar 10 firstvar 11 pop enter 13 vararg 10 call 0 immed 32 call 1 firvararg 12 vararg 9 prosucc vararg 11 glovar 12 depart 2 2 exit xrtable p display_token 1 p primput 1 p display_list 2 endxrtable endclause ; clause display_list 2 10 keya '[]' constnil enter 10 depart 0 0 exit xrtable p nl 0 endxrtable endclause ; clause display_token 1 10 keyf atom 1 lastfunctor 0 1 firstvar 9 enter 10 cut 10 vararg 9 depart 1 1 exit xrtable f atom 1 p tokenput 1 endxrtable endclause ; clause display_token 1 10 keyf var 2 lastfunctor 0 2 void firstvar 9 enter 10 cut 10 vararg 9 depart 1 1 exit xrtable f var 2 p tokenput 1 endxrtable endclause ; clause display_token 1 10 keyf integer 1 lastfunctor 0 1 firstvar 9 enter 10 cut 10 vararg 9 depart 1 1 exit xrtable f integer 1 p tokenput 1 endxrtable endclause ; clause display_token 1 10 keyf string 1 lastfunctor 0 1 firstvar 9 enter 10 cut 10 vararg 9 depart 1 1 exit xrtable f string 1 p write 1 endxrtable endclause ; clause display_token 1 9 enter 9 cut 9 vararg 8 depart 0 1 exit xrtable p display 1 endxrtable endclause ; clause display 1 10 enter 10 vararg 8 constant 0 constant 1 constant 2 glofirvar 9 depart 3 5 exit xrtable a display i 1200 a punct p write_out 5 endxrtable endclause ; clause print 1 10 enter 10 vararg 8 constant 0 constant 1 constant 2 glofirvar 9 depart 3 5 exit xrtable a print i 1200 a punct p write_out 5 endxrtable endclause ; clause write 1 10 enter 10 vararg 8 constant 0 constant 1 constant 2 glofirvar 9 depart 3 5 exit xrtable a write i 1200 a punct p write_out 5 endxrtable endclause ; clause writeq 1 10 enter 10 vararg 8 constant 0 constant 1 constant 2 glofirvar 9 depart 3 5 exit xrtable a writeq i 1200 a punct p write_out 5 endxrtable endclause ; clause maybe_paren 5 15 voidn 4 constant 0 enter 15 eval 8 13 eval 9 14 pushv 13 pushv 14 gt cut 15 vararg 10 depart 1 1 exit xrtable a punct p put 1 endxrtable endclause ; clause maybe_paren 5 13 voidn 4 var 11 return 13 xrtable endxrtable endclause ; clause maybe_space 2 10 keya punct constant 0 enter 10 cut 10 exit xrtable a punct endxrtable endclause ; clause maybe_space 2 10 void var 8 enter 10 cut 10 immed 32 depart 0 1 exit xrtable p put 1 endxrtable endclause ; clause maybe_space 2 10 keya quote constant 0 constant 1 enter 10 cut 10 immed 32 depart 2 1 exit xrtable a quote a alpha p put 1 endxrtable endclause ; clause maybe_space 2 10 voidn 2 return 10 xrtable endxrtable endclause ; clause write_out 5 13 voidn 4 constant 0 enter 13 provar 8 cut 13 vararg 11 constant 0 call 1 vararg 8 depart 2 1 exit xrtable a alpha p maybe_space 2 p tokenput 1 endxrtable endclause ; clause write_out 5 13 voidn 4 constant 0 enter 13 proint 8 vararg 8 vararg 11 call 1 cut 13 vararg 8 depart 2 1 exit xrtable a alpha p signed_space 2 p tokenput 1 endxrtable endclause ; clause write_out 5 14 keyf '%varname%' 1 functor 0 1 firstvar 13 pop voidn 3 constant 1 enter 14 vararg 11 constant 1 call 2 vararg 13 depart 3 1 exit xrtable f '%varname%' 1 a alpha p maybe_space 2 p tokenput 1 endxrtable endclause ; clause write_out 5 13 void constant 0 voidn 2 constant 1 enter 13 vararg 8 call 2 cut 13 exit xrtable a print a alpha p portray 1 endxrtable endclause ; clause write_out 5 21 voidn 4 constant 0 enter 21 proatom 8 vararg 8 firvararg 13 firvararg 14 firvararg 15 firvararg 16 firvararg 17 call 1 eval 14 18 eval 10 19 pushv 18 pushv 19 gt cut 21 immed 40 call 2 initvar 20 disjunct 17 vararg 9 constant 3 proequal vararg 8 vararg 9 constant 0 vararg 20 call 4 continue 5 endor vararg 8 call 5 cut 21 immed 41 depart 2 1 exit xrtable a punct p current_op 6 p put 1 a writeq p write_atom 4 p tokenput 1 endxrtable endclause ; clause write_out 5 13 enter 13 proatom 8 cut 13 vararg 8 vararg 9 vararg 11 vararg 12 depart 0 4 exit xrtable p write_atom 4 endxrtable endclause ; clause write_out 5 16 void constant 0 voidn 2 constant 1 enter 16 cut 16 vararg 8 firvararg 13 firvararg 14 profunctor vararg 13 constant 0 vararg 11 firvararg 15 call 2 immed 0 glovar 14 vararg 8 immed 40 constant 0 depart 3 5 exit xrtable a display a punct p write_atom 4 p write_args 5 endxrtable endclause ; clause write_out 5 15 keyf '{}' 1 functor 0 1 firstvar 13 pop voidn 3 constant 1 enter 15 cut 15 immed 123 call 2 vararg 13 vararg 9 constant 3 constant 1 firvararg 14 call 4 immed 125 depart 2 1 exit xrtable f '{}' 1 a punct p put 1 i 1200 p write_out 5 endxrtable endclause ; clause write_out 5 16 keyf '.' 2 conslist firstvar 13 firstvar 14 pop voidn 3 constant 0 enter 16 cut 16 immed 91 call 1 vararg 13 vararg 9 constant 2 constant 0 firvararg 15 call 3 vararg 14 vararg 9 depart 4 2 exit xrtable a punct p put 1 i 999 p write_out 5 p write_tail 2 endxrtable endclause ; clause write_out 5 18 keyf ',' 2 functor 0 2 firstvar 13 firstvar 14 pop enter 18 cut 18 constant 1 vararg 10 immed 40 vararg 11 firvararg 15 call 2 vararg 13 vararg 9 constant 3 vararg 15 firvararg 16 call 4 immed 44 call 5 vararg 14 vararg 9 constant 1 constant 6 firvararg 17 call 4 constant 1 vararg 10 immed 41 glovar 17 vararg 12 depart 2 5 exit xrtable f ',' 2 i 1000 p maybe_paren 5 i 999 p write_out 5 p put 1 a punct endxrtable endclause ; clause write_out 5 15 enter 15 vararg 8 firvararg 13 firvararg 14 profunctor glovar 14 glovar 13 vararg 8 vararg 9 vararg 10 vararg 11 vararg 12 depart 0 7 exit xrtable p write_out 7 endxrtable endclause ; clause signed_space 2 12 enter 12 eval 8 10 pushv 10 pushb 0 lt glofirvar 11 constant 0 depart 1 2 exit xrtable a other p maybe_space 2 endxrtable endclause ; clause signed_space 2 11 enter 11 glofirvar 10 constant 0 depart 1 2 exit xrtable a alpha p maybe_space 2 endxrtable endclause ; clause write_out 7 23 keyi 1 immed 1 enter 23 vararg 9 firvararg 15 firvararg 16 firvararg 17 firvararg 18 constant 0 call 1 cut 23 vararg 16 vararg 12 immed 40 vararg 13 firvararg 19 call 2 vararg 9 vararg 11 vararg 19 firvararg 20 call 3 immed 1 vararg 10 firvararg 21 proarg vararg 21 vararg 11 vararg 15 vararg 20 firvararg 22 call 4 glovar 16 vararg 12 immed 41 glovar 22 vararg 14 depart 2 5 exit xrtable a prefix p current_op 6 p maybe_paren 5 p write_atom 4 p write_out 5 endxrtable endclause ; clause write_out 7 23 keyi 1 immed 1 enter 23 vararg 9 firvararg 15 firvararg 16 firvararg 17 firvararg 18 constant 0 call 1 cut 23 vararg 16 vararg 12 immed 40 vararg 13 firvararg 19 call 2 immed 1 vararg 10 firvararg 20 proarg vararg 20 vararg 11 vararg 15 vararg 19 firvararg 21 call 3 vararg 9 vararg 11 vararg 21 firvararg 22 call 4 glovar 16 vararg 12 immed 41 glovar 22 vararg 14 depart 2 5 exit xrtable a postfix p current_op 6 p maybe_paren 5 p write_out 5 p write_atom 4 endxrtable endclause ; clause write_out 7 25 keyi 2 immed 2 enter 25 vararg 9 firvararg 15 firvararg 16 firvararg 17 firvararg 18 constant 0 call 1 cut 25 vararg 16 vararg 12 immed 40 vararg 13 firvararg 19 call 2 immed 1 vararg 10 firvararg 20 proarg vararg 20 vararg 11 vararg 15 vararg 19 firvararg 21 call 3 vararg 9 vararg 11 vararg 21 firvararg 22 call 4 immed 2 vararg 10 firvararg 23 proarg vararg 23 vararg 11 vararg 17 vararg 22 firvararg 24 call 3 glovar 16 vararg 12 immed 41 glovar 24 vararg 14 depart 2 5 exit xrtable a infix p current_op 6 p maybe_paren 5 p write_out 5 p write_atom 4 endxrtable endclause ; clause write_out 7 16 voidn 6 constant 0 enter 16 vararg 9 vararg 11 vararg 13 firvararg 15 call 1 immed 0 vararg 8 vararg 10 immed 40 vararg 11 depart 2 5 exit xrtable a punct p write_atom 4 p write_args 5 endxrtable endclause ; clause write_atom 4 12 keya ! constant 0 voidn 2 constant 1 enter 12 cut 12 immed 33 depart 2 1 exit xrtable a ! a punct p put 1 endxrtable endclause ; clause write_atom 4 12 keya ; constant 0 voidn 2 constant 1 enter 12 cut 12 immed 59 depart 2 1 exit xrtable a ; a punct p put 1 endxrtable endclause ; clause write_atom 4 12 keya '[]' constnil voidn 2 constant 0 enter 12 cut 12 immed 91 call 1 immed 93 depart 1 1 exit xrtable a punct p put 1 endxrtable endclause ; clause write_atom 4 12 keya '{}' constant 0 voidn 2 constant 1 enter 12 cut 12 immed 123 call 2 immed 125 depart 2 1 exit xrtable a '{}' a punct p put 1 endxrtable endclause ; clause write_atom 4 12 enter 12 vararg 8 vararg 11 call 0 vararg 10 vararg 11 call 1 vararg 8 call 2 cut 12 exit xrtable p classify 2 p maybe_space 2 p tokenput 1 endxrtable endclause ; clause write_atom 4 12 void constant 0 void constant 1 enter 12 vararg 10 constant 1 call 2 vararg 8 call 3 cut 12 exit xrtable a writeq a quote p maybe_space 2 p tokenquote 1 endxrtable endclause ; clause write_atom 4 12 voidn 3 constant 0 enter 12 vararg 8 depart 1 1 exit xrtable a alpha p tokenput 1 endxrtable endclause ; clause classify 2 10 void constant 0 enter 10 vararg 8 call 1 cut 10 exit xrtable a alpha p tokenalpha 1 endxrtable endclause ; clause classify 2 10 void constant 0 enter 10 vararg 8 call 1 cut 10 exit xrtable a other p tokenother 1 endxrtable endclause ; clause write_args 5 13 void var 8 enter 13 cut 13 immed 41 depart 0 1 exit xrtable p put 1 endxrtable endclause ; clause write_args 5 16 enter 16 vararg 11 call 0 vararg 8 firvararg 13 prosucc vararg 13 vararg 10 firvararg 14 proarg vararg 14 vararg 12 constant 1 constant 2 firvararg 15 call 3 glovar 13 vararg 9 vararg 10 immed 44 vararg 12 depart 4 5 exit xrtable p put 1 i 999 a punct p write_out 5 p write_args 5 endxrtable endclause ; clause write_tail 2 10 enter 10 provar 8 cut 10 immed 124 call 0 vararg 8 call 1 immed 93 depart 0 1 exit xrtable p put 1 p tokenput 1 endxrtable endclause ; clause write_tail 2 10 keya '[]' constnil enter 10 cut 10 immed 93 depart 0 1 exit xrtable p put 1 endxrtable endclause ; clause write_tail 2 13 keyf '.' 2 conslist firstvar 10 firstvar 11 pop enter 13 cut 13 immed 44 call 0 vararg 10 vararg 9 constant 1 constant 2 firvararg 12 call 3 vararg 11 vararg 9 depart 4 2 exit xrtable p put 1 i 999 a punct p write_out 5 p write_tail 2 endxrtable endclause ; clause write_tail 2 11 enter 11 immed 124 call 0 vararg 8 vararg 9 constant 1 constant 2 firvararg 10 call 3 immed 93 depart 0 1 exit xrtable p put 1 i 999 a punct p write_out 5 endxrtable endclause ; clause writecl 2 10 void constant 0 enter 10 vararg 8 call 1 immed 46 call 2 call 3 cut 10 exit xrtable a true p writeq 1 p put 1 p nl 0 endxrtable endclause ; clause writecl 2 10 enter 10 vararg 8 call 0 immed 32 call 1 constant 2 call 3 vararg 9 immed 3 constant 4 call 5 immed 46 call 6 call 7 cut 10 exit xrtable p writeq 1 p primput 1 a :- p tokenput 1 a ',' p writebod 3 p put 1 p nl 0 endxrtable endclause ; clause writebod 3 11 enter 11 provar 8 cut 11 vararg 10 vararg 9 call 0 vararg 8 depart 1 1 exit xrtable p beforelit 2 p writeq 1 endxrtable endclause ; clause writebod 3 14 keyf ',' 2 functor 0 2 firstvar 11 firstvar 12 pop enter 14 cut 14 vararg 11 vararg 9 vararg 10 call 1 immed 44 call 2 vararg 10 vararg 9 firvararg 13 call 3 vararg 12 glovar 13 constant 4 depart 1 3 exit xrtable f ',' 2 p writebod 3 p put 1 p aftercomma 3 a ',' endxrtable endclause ; clause writebod 3 13 keyf ; 2 functor 0 2 firstvar 11 firstvar 12 pop enter 13 cut 13 call 1 lastfunctor 2 2 var 9 immed 2 call 3 immed 40 call 4 vararg 11 vararg 9 constant 5 call 6 immed 59 call 4 vararg 12 vararg 9 constant 7 call 6 immed 32 call 8 immed 41 depart 4 1 exit xrtable f ; 2 p nl 0 f - 2 p tab 1 p put 1 a '(' p writebod 3 a ; p primput 1 endxrtable endclause ; clause writebod 3 11 enter 11 vararg 10 vararg 9 call 0 vararg 8 depart 1 1 exit xrtable p beforelit 2 p writeq 1 endxrtable endclause ; clause aftercomma 3 11 keya ',' constant 0 void var 9 enter 11 cut 11 exit xrtable a ',' endxrtable endclause ; clause aftercomma 3 12 enter 12 eval 9 11 pushv 11 pushb 3 add result 10 exit xrtable endxrtable endclause ; clause beforelit 2 10 keya '(' constant 0 enter 10 cut 10 immed 32 depart 1 1 exit xrtable a '(' p primput 1 endxrtable endclause ; clause beforelit 2 10 enter 10 call 0 vararg 9 depart 1 1 exit xrtable p nl 0 p tab 1 endxrtable endclause ;