applyprim sees: (eval '(list 2 3) '()) setenvop K [ 22 ] 0 %%%%%%%%%%% J [ 0 ] 1 %%%%%%%%%%% H [ -1 ] 2 %%%%%%%%%%% H [ -1 ] 3 %%%%%%%%%%% G [ 116 ] 4 %%%%%%%%%%% applyprim sees: '(list 2 3) '()) applyprim sees: '()) B [ 0 ] 6 %%%%%%%%%%% applyprim sees: ) apply J [ 22 ] 1 %%%%%%%%%%% ret push of 22 at 1 & len push of 22 applyuserfunc applyprim sees: (@ (self-evaluating? #1 ) @ #1 (@ (variable? #1 ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (define? #1 ) @ (eval-define #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) ) ) ) ) )~ setenvop K [ 479 ] 7 %%%%%%%%%%% J [ 0 ] 8 %%%%%%%%%%% H [ 2 ] 9 %%%%%%%%%%% H [ 3 ] 10 %%%%%%%%%%% G [ 14 ] 11 %%%%%%%%%%% applyprim sees: (self-evaluating? #1 ) @ #1 (@ (variable? #1 ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (define? #1 ) @ (eval-define #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) ) ) ) ) )~ setenvop K [ 479 ] 12 %%%%%%%%%%% J [ 0 ] 13 %%%%%%%%%%% H [ 2 ] 14 %%%%%%%%%%% H [ 10 ] 15 %%%%%%%%%%% G [ 48 ] 16 %%%%%%%%%%% applyprim sees: #1 ) @ #1 (@ (variable? #1 ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (define? #1 ) @ (eval-define #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) ) ) ) ) )~ E [ 21474836484 ] 17 %%%%%%%%%%% applyprim sees: ) @ #1 (@ (variable? #1 ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (define? #1 ) @ (eval-define #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) ) ) ) ) )~ apply J [ 26 ] 13 %%%%%%%%%%% ret push of 26 at 13 & len push of 479 applyuserfunc applyprim sees: (number? #1 )~ setenvop H [ 14 ] 18 %%%%%%%%%%% H [ 15 ] 19 %%%%%%%%%%% G [ 25 ] 20 %%%%%%%%%%% applyprim sees: #1 )~ E [ 21474836484 ] 21 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 0 ] 18 %%%%%%%%%%% tar% = 12 & cl% = 15 & [al] = 14 applyprim sees: ~ POPBACK pos : 13 rett in: 13 op 116 Remove from stack: 7 F [ 0 ] 12 %%%%%%%%%%% tar% = 7 & cl% = 10 & al% = 2 applyprim sees: @ #1 (@ (variable? #1 ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (define? #1 ) @ (eval-define #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) ) ) ) ) )~ evalif Remove from stack: 1 F K [ 477 ] 7 %%%%%%%%%%% J [ 477 ] 8 %%%%%%%%%%% store ret/len of: 477 in : 8 applyprim sees: (@ (variable? #1 ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (define? #1 ) @ (eval-define #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) ) ) ) )~ setenvop K [ 477 ] 12 %%%%%%%%%%% J [ 31 ] 13 %%%%%%%%%%% H [ 2 ] 14 %%%%%%%%%%% H [ 10 ] 15 %%%%%%%%%%% G [ 14 ] 16 %%%%%%%%%%% applyprim sees: (variable? #1 ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (define? #1 ) @ (eval-define #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) ) ) ) )~ setenvop K [ 477 ] 17 %%%%%%%%%%% J [ 31 ] 18 %%%%%%%%%%% H [ 2 ] 19 %%%%%%%%%%% H [ 15 ] 20 %%%%%%%%%%% G [ 49 ] 21 %%%%%%%%%%% applyprim sees: #1 ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (define? #1 ) @ (eval-define #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) ) ) ) )~ E [ 21474836484 ] 22 %%%%%%%%%%% applyprim sees: ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (define? #1 ) @ (eval-define #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) ) ) ) )~ apply J [ 50 ] 18 %%%%%%%%%%% ret push of 50 at 18 & len push of 477 applyuserfunc applyprim sees: (symbol? #1 )~ setenvop H [ 19 ] 23 %%%%%%%%%%% H [ 20 ] 24 %%%%%%%%%%% G [ 26 ] 25 %%%%%%%%%%% applyprim sees: #1 )~ E [ 21474836484 ] 26 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 0 ] 23 %%%%%%%%%%% tar% = 17 & cl% = 20 & [al] = 19 applyprim sees: ~ POPBACK pos : 13 rett in: 18 op 116 Remove from stack: 7 F [ 0 ] 17 %%%%%%%%%%% tar% = 12 & cl% = 15 & al% = 2 applyprim sees: @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (define? #1 ) @ (eval-define #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) ) ) ) )~ evalif Remove from stack: 1 F K [ 475 ] 12 %%%%%%%%%%% J [ 475 ] 13 %%%%%%%%%%% store ret/len of: 475 in : 13 applyprim sees: (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (define? #1 ) @ (eval-define #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) ) ) )~ setenvop K [ 475 ] 17 %%%%%%%%%%% J [ 75 ] 18 %%%%%%%%%%% H [ 2 ] 19 %%%%%%%%%%% H [ 15 ] 20 %%%%%%%%%%% G [ 14 ] 21 %%%%%%%%%%% applyprim sees: (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (define? #1 ) @ (eval-define #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) ) ) )~ setenvop K [ 475 ] 22 %%%%%%%%%%% J [ 75 ] 23 %%%%%%%%%%% H [ 2 ] 24 %%%%%%%%%%% H [ 20 ] 25 %%%%%%%%%%% G [ 51 ] 26 %%%%%%%%%%% applyprim sees: #1 ) @ (eval-quotation #1 #2 ) (@ (define? #1 ) @ (eval-define #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) ) ) )~ E [ 21474836484 ] 27 %%%%%%%%%%% applyprim sees: ) @ (eval-quotation #1 #2 ) (@ (define? #1 ) @ (eval-define #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) ) ) )~ apply J [ 92 ] 23 %%%%%%%%%%% ret push of 92 at 23 & len push of 475 applyuserfunc applyprim sees: (@ (list? #1 ) @ (eq? (car #1 ) 'quote ) (FALSE ) )~ setenvop K [ 52 ] 28 %%%%%%%%%%% J [ 0 ] 29 %%%%%%%%%%% H [ 24 ] 30 %%%%%%%%%%% H [ 25 ] 31 %%%%%%%%%%% G [ 14 ] 32 %%%%%%%%%%% applyprim sees: (list? #1 ) @ (eq? (car #1 ) 'quote ) (FALSE ) )~ setenvop H [ 24 ] 33 %%%%%%%%%%% H [ 31 ] 34 %%%%%%%%%%% G [ 19 ] 35 %%%%%%%%%%% applyprim sees: #1 ) @ (eq? (car #1 ) 'quote ) (FALSE ) )~ E [ 21474836484 ] 36 %%%%%%%%%%% applyprim sees: ) @ (eq? (car #1 ) 'quote ) (FALSE ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 1 ] 33 %%%%%%%%%%% tar% = 28 & cl% = 31 & [al] = 24 applyprim sees: @ (eq? (car #1 ) 'quote ) (FALSE ) )~ evalif Remove from stack: 1 T store ret of: 17 in : 29 & len: J [ 51 ] 29 %%%%%%%%%%% K [ 52 ] 28 %%%%%%%%%%% 41 applyprim sees: (eq? (car #1 ) 'quote )~ setenvop H [ 24 ] 33 %%%%%%%%%%% H [ 31 ] 34 %%%%%%%%%%% G [ 24 ] 35 %%%%%%%%%%% applyprim sees: (car #1 ) 'quote )~ setenvop H [ 24 ] 36 %%%%%%%%%%% H [ 34 ] 37 %%%%%%%%%%% G [ 16 ] 38 %%%%%%%%%%% applyprim sees: #1 ) 'quote )~ E [ 21474836484 ] 39 %%%%%%%%%%% applyprim sees: ) 'quote )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 1 ] 36 %%%%%%%%%%% tar% = 33 & cl% = 34 & [al] = 24 applyprim sees: 'quote )~ C [ 2 ] 37 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 0 ] 33 %%%%%%%%%%% tar% = 28 & cl% = 31 & [al] = 24 applyprim sees: ~ POPBACK pos : 40 rett in: 23 op 116 Remove from stack: 12 F [ 0 ] 22 %%%%%%%%%%% tar% = 17 & cl% = 20 & al% = 2 applyprim sees: @ (eval-quotation #1 #2 ) (@ (define? #1 ) @ (eval-define #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) ) ) )~ evalif Remove from stack: 1 F K [ 473 ] 17 %%%%%%%%%%% J [ 473 ] 18 %%%%%%%%%%% store ret/len of: 473 in : 18 applyprim sees: (@ (define? #1 ) @ (eval-define #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) ) )~ setenvop K [ 473 ] 22 %%%%%%%%%%% J [ 118 ] 23 %%%%%%%%%%% H [ 2 ] 24 %%%%%%%%%%% H [ 20 ] 25 %%%%%%%%%%% G [ 14 ] 26 %%%%%%%%%%% applyprim sees: (define? #1 ) @ (eval-define #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) ) )~ setenvop K [ 473 ] 27 %%%%%%%%%%% J [ 118 ] 28 %%%%%%%%%%% H [ 2 ] 29 %%%%%%%%%%% H [ 25 ] 30 %%%%%%%%%%% G [ 53 ] 31 %%%%%%%%%%% applyprim sees: #1 ) @ (eval-define #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) ) )~ E [ 21474836484 ] 32 %%%%%%%%%%% applyprim sees: ) @ (eval-define #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) ) )~ apply J [ 135 ] 28 %%%%%%%%%%% ret push of 135 at 28 & len push of 473 applyuserfunc applyprim sees: (@ (list? #1 ) @ (eq? (car #1 ) 'define ) (FALSE ) )~ setenvop K [ 53 ] 33 %%%%%%%%%%% J [ 0 ] 34 %%%%%%%%%%% H [ 29 ] 35 %%%%%%%%%%% H [ 30 ] 36 %%%%%%%%%%% G [ 14 ] 37 %%%%%%%%%%% applyprim sees: (list? #1 ) @ (eq? (car #1 ) 'define ) (FALSE ) )~ setenvop H [ 29 ] 38 %%%%%%%%%%% H [ 36 ] 39 %%%%%%%%%%% G [ 19 ] 40 %%%%%%%%%%% applyprim sees: #1 ) @ (eq? (car #1 ) 'define ) (FALSE ) )~ E [ 21474836484 ] 41 %%%%%%%%%%% applyprim sees: ) @ (eq? (car #1 ) 'define ) (FALSE ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 1 ] 38 %%%%%%%%%%% tar% = 33 & cl% = 36 & [al] = 29 applyprim sees: @ (eq? (car #1 ) 'define ) (FALSE ) )~ evalif Remove from stack: 1 T store ret of: 17 in : 34 & len: J [ 52 ] 34 %%%%%%%%%%% K [ 53 ] 33 %%%%%%%%%%% 42 applyprim sees: (eq? (car #1 ) 'define )~ setenvop H [ 29 ] 38 %%%%%%%%%%% H [ 36 ] 39 %%%%%%%%%%% G [ 24 ] 40 %%%%%%%%%%% applyprim sees: (car #1 ) 'define )~ setenvop H [ 29 ] 41 %%%%%%%%%%% H [ 39 ] 42 %%%%%%%%%%% G [ 16 ] 43 %%%%%%%%%%% applyprim sees: #1 ) 'define )~ E [ 21474836484 ] 44 %%%%%%%%%%% applyprim sees: ) 'define )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 1 ] 41 %%%%%%%%%%% tar% = 38 & cl% = 39 & [al] = 29 applyprim sees: 'define )~ C [ 3 ] 42 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 0 ] 38 %%%%%%%%%%% tar% = 33 & cl% = 36 & [al] = 29 applyprim sees: ~ POPBACK pos : 41 rett in: 28 op 116 Remove from stack: 12 F [ 0 ] 27 %%%%%%%%%%% tar% = 22 & cl% = 25 & al% = 2 applyprim sees: @ (eval-define #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) ) )~ evalif Remove from stack: 1 F K [ 471 ] 22 %%%%%%%%%%% J [ 471 ] 23 %%%%%%%%%%% store ret/len of: 471 in : 23 applyprim sees: (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) )~ setenvop K [ 471 ] 27 %%%%%%%%%%% J [ 158 ] 28 %%%%%%%%%%% H [ 2 ] 29 %%%%%%%%%%% H [ 25 ] 30 %%%%%%%%%%% G [ 14 ] 31 %%%%%%%%%%% applyprim sees: (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) )~ setenvop K [ 471 ] 32 %%%%%%%%%%% J [ 158 ] 33 %%%%%%%%%%% H [ 2 ] 34 %%%%%%%%%%% H [ 30 ] 35 %%%%%%%%%%% G [ 58 ] 36 %%%%%%%%%%% applyprim sees: #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) )~ E [ 21474836484 ] 37 %%%%%%%%%%% applyprim sees: ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) )~ apply J [ 171 ] 33 %%%%%%%%%%% ret push of 171 at 33 & len push of 471 applyuserfunc applyprim sees: (@ (list? #1 ) @ (eq? (car #1 ) 'if ) (FALSE ) )~ setenvop K [ 49 ] 38 %%%%%%%%%%% J [ 0 ] 39 %%%%%%%%%%% H [ 34 ] 40 %%%%%%%%%%% H [ 35 ] 41 %%%%%%%%%%% G [ 14 ] 42 %%%%%%%%%%% applyprim sees: (list? #1 ) @ (eq? (car #1 ) 'if ) (FALSE ) )~ setenvop H [ 34 ] 43 %%%%%%%%%%% H [ 41 ] 44 %%%%%%%%%%% G [ 19 ] 45 %%%%%%%%%%% applyprim sees: #1 ) @ (eq? (car #1 ) 'if ) (FALSE ) )~ E [ 21474836484 ] 46 %%%%%%%%%%% applyprim sees: ) @ (eq? (car #1 ) 'if ) (FALSE ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 1 ] 43 %%%%%%%%%%% tar% = 38 & cl% = 41 & [al] = 34 applyprim sees: @ (eq? (car #1 ) 'if ) (FALSE ) )~ evalif Remove from stack: 1 T store ret of: 17 in : 39 & len: J [ 48 ] 39 %%%%%%%%%%% K [ 49 ] 38 %%%%%%%%%%% 38 applyprim sees: (eq? (car #1 ) 'if )~ setenvop H [ 34 ] 43 %%%%%%%%%%% H [ 41 ] 44 %%%%%%%%%%% G [ 24 ] 45 %%%%%%%%%%% applyprim sees: (car #1 ) 'if )~ setenvop H [ 34 ] 46 %%%%%%%%%%% H [ 44 ] 47 %%%%%%%%%%% G [ 16 ] 48 %%%%%%%%%%% applyprim sees: #1 ) 'if )~ E [ 21474836484 ] 49 %%%%%%%%%%% applyprim sees: ) 'if )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 1 ] 46 %%%%%%%%%%% tar% = 43 & cl% = 44 & [al] = 34 applyprim sees: 'if )~ C [ 4 ] 47 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 0 ] 43 %%%%%%%%%%% tar% = 38 & cl% = 41 & [al] = 34 applyprim sees: ~ POPBACK pos : 37 rett in: 33 op 116 Remove from stack: 12 F [ 0 ] 32 %%%%%%%%%%% tar% = 27 & cl% = 30 & al% = 2 applyprim sees: @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) ) )~ evalif Remove from stack: 1 F K [ 469 ] 27 %%%%%%%%%%% J [ 469 ] 28 %%%%%%%%%%% store ret/len of: 469 in : 28 applyprim sees: (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) )~ setenvop K [ 469 ] 32 %%%%%%%%%%% J [ 190 ] 33 %%%%%%%%%%% H [ 2 ] 34 %%%%%%%%%%% H [ 30 ] 35 %%%%%%%%%%% G [ 14 ] 36 %%%%%%%%%%% applyprim sees: (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) )~ setenvop K [ 469 ] 37 %%%%%%%%%%% J [ 190 ] 38 %%%%%%%%%%% H [ 2 ] 39 %%%%%%%%%%% H [ 35 ] 40 %%%%%%%%%%% G [ 109 ] 41 %%%%%%%%%%% applyprim sees: #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) )~ E [ 21474836484 ] 42 %%%%%%%%%%% applyprim sees: ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) )~ apply J [ 207 ] 38 %%%%%%%%%%% ret push of 207 at 38 & len push of 469 applyuserfunc applyprim sees: (@ (list? #1 ) @ (eq? (car #1 ) 'lambda ) (FALSE ) )~ setenvop K [ 53 ] 43 %%%%%%%%%%% J [ 0 ] 44 %%%%%%%%%%% H [ 39 ] 45 %%%%%%%%%%% H [ 40 ] 46 %%%%%%%%%%% G [ 14 ] 47 %%%%%%%%%%% applyprim sees: (list? #1 ) @ (eq? (car #1 ) 'lambda ) (FALSE ) )~ setenvop H [ 39 ] 48 %%%%%%%%%%% H [ 46 ] 49 %%%%%%%%%%% G [ 19 ] 50 %%%%%%%%%%% applyprim sees: #1 ) @ (eq? (car #1 ) 'lambda ) (FALSE ) )~ E [ 21474836484 ] 51 %%%%%%%%%%% applyprim sees: ) @ (eq? (car #1 ) 'lambda ) (FALSE ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 1 ] 48 %%%%%%%%%%% tar% = 43 & cl% = 46 & [al] = 39 applyprim sees: @ (eq? (car #1 ) 'lambda ) (FALSE ) )~ evalif Remove from stack: 1 T store ret of: 17 in : 44 & len: J [ 52 ] 44 %%%%%%%%%%% K [ 53 ] 43 %%%%%%%%%%% 42 applyprim sees: (eq? (car #1 ) 'lambda )~ setenvop H [ 39 ] 48 %%%%%%%%%%% H [ 46 ] 49 %%%%%%%%%%% G [ 24 ] 50 %%%%%%%%%%% applyprim sees: (car #1 ) 'lambda )~ setenvop H [ 39 ] 51 %%%%%%%%%%% H [ 49 ] 52 %%%%%%%%%%% G [ 16 ] 53 %%%%%%%%%%% applyprim sees: #1 ) 'lambda )~ E [ 21474836484 ] 54 %%%%%%%%%%% applyprim sees: ) 'lambda )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 1 ] 51 %%%%%%%%%%% tar% = 48 & cl% = 49 & [al] = 39 applyprim sees: 'lambda )~ C [ 5 ] 52 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 0 ] 48 %%%%%%%%%%% tar% = 43 & cl% = 46 & [al] = 39 applyprim sees: ~ POPBACK pos : 41 rett in: 38 op 116 Remove from stack: 12 F [ 0 ] 37 %%%%%%%%%%% tar% = 32 & cl% = 35 & al% = 2 applyprim sees: @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) ) )~ evalif Remove from stack: 1 F K [ 467 ] 32 %%%%%%%%%%% J [ 467 ] 33 %%%%%%%%%%% store ret/len of: 467 in : 33 applyprim sees: (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) )~ setenvop K [ 467 ] 37 %%%%%%%%%%% J [ 269 ] 38 %%%%%%%%%%% H [ 2 ] 39 %%%%%%%%%%% H [ 35 ] 40 %%%%%%%%%%% G [ 14 ] 41 %%%%%%%%%%% applyprim sees: (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) )~ setenvop K [ 467 ] 42 %%%%%%%%%%% J [ 269 ] 43 %%%%%%%%%%% H [ 2 ] 44 %%%%%%%%%%% H [ 40 ] 45 %%%%%%%%%%% G [ 72 ] 46 %%%%%%%%%%% applyprim sees: #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) )~ E [ 21474836484 ] 47 %%%%%%%%%%% applyprim sees: ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) )~ apply J [ 285 ] 43 %%%%%%%%%%% ret push of 285 at 43 & len push of 467 applyuserfunc applyprim sees: (@ (list? #1 ) @ (eq? (car #1 ) 'begin ) (FALSE ) )~ setenvop K [ 52 ] 48 %%%%%%%%%%% J [ 0 ] 49 %%%%%%%%%%% H [ 44 ] 50 %%%%%%%%%%% H [ 45 ] 51 %%%%%%%%%%% G [ 14 ] 52 %%%%%%%%%%% applyprim sees: (list? #1 ) @ (eq? (car #1 ) 'begin ) (FALSE ) )~ setenvop H [ 44 ] 53 %%%%%%%%%%% H [ 51 ] 54 %%%%%%%%%%% G [ 19 ] 55 %%%%%%%%%%% applyprim sees: #1 ) @ (eq? (car #1 ) 'begin ) (FALSE ) )~ E [ 21474836484 ] 56 %%%%%%%%%%% applyprim sees: ) @ (eq? (car #1 ) 'begin ) (FALSE ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 1 ] 53 %%%%%%%%%%% tar% = 48 & cl% = 51 & [al] = 44 applyprim sees: @ (eq? (car #1 ) 'begin ) (FALSE ) )~ evalif Remove from stack: 1 T store ret of: 17 in : 49 & len: J [ 51 ] 49 %%%%%%%%%%% K [ 52 ] 48 %%%%%%%%%%% 41 applyprim sees: (eq? (car #1 ) 'begin )~ setenvop H [ 44 ] 53 %%%%%%%%%%% H [ 51 ] 54 %%%%%%%%%%% G [ 24 ] 55 %%%%%%%%%%% applyprim sees: (car #1 ) 'begin )~ setenvop H [ 44 ] 56 %%%%%%%%%%% H [ 54 ] 57 %%%%%%%%%%% G [ 16 ] 58 %%%%%%%%%%% applyprim sees: #1 ) 'begin )~ E [ 21474836484 ] 59 %%%%%%%%%%% applyprim sees: ) 'begin )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 1 ] 56 %%%%%%%%%%% tar% = 53 & cl% = 54 & [al] = 44 applyprim sees: 'begin )~ C [ 6 ] 57 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 0 ] 53 %%%%%%%%%%% tar% = 48 & cl% = 51 & [al] = 44 applyprim sees: ~ POPBACK pos : 40 rett in: 43 op 116 Remove from stack: 12 F [ 0 ] 42 %%%%%%%%%%% tar% = 37 & cl% = 40 & al% = 2 applyprim sees: @ (eval-sequence (begin-actions #1 ) #2 ) (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) ) )~ evalif Remove from stack: 1 F K [ 465 ] 37 %%%%%%%%%%% J [ 465 ] 38 %%%%%%%%%%% store ret/len of: 465 in : 38 applyprim sees: (@ (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) )~ setenvop K [ 465 ] 42 %%%%%%%%%%% J [ 327 ] 43 %%%%%%%%%%% H [ 2 ] 44 %%%%%%%%%%% H [ 40 ] 45 %%%%%%%%%%% G [ 14 ] 46 %%%%%%%%%%% applyprim sees: (cond? #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) )~ setenvop K [ 465 ] 47 %%%%%%%%%%% J [ 327 ] 48 %%%%%%%%%%% H [ 2 ] 49 %%%%%%%%%%% H [ 45 ] 50 %%%%%%%%%%% G [ 64 ] 51 %%%%%%%%%%% applyprim sees: #1 ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) )~ E [ 21474836484 ] 52 %%%%%%%%%%% applyprim sees: ) @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) )~ apply J [ 342 ] 48 %%%%%%%%%%% ret push of 342 at 48 & len push of 465 applyuserfunc applyprim sees: (@ (list? #1 ) @ (eq? (car #1 ) 'cond ) (FALSE ) )~ setenvop K [ 51 ] 53 %%%%%%%%%%% J [ 0 ] 54 %%%%%%%%%%% H [ 49 ] 55 %%%%%%%%%%% H [ 50 ] 56 %%%%%%%%%%% G [ 14 ] 57 %%%%%%%%%%% applyprim sees: (list? #1 ) @ (eq? (car #1 ) 'cond ) (FALSE ) )~ setenvop H [ 49 ] 58 %%%%%%%%%%% H [ 56 ] 59 %%%%%%%%%%% G [ 19 ] 60 %%%%%%%%%%% applyprim sees: #1 ) @ (eq? (car #1 ) 'cond ) (FALSE ) )~ E [ 21474836484 ] 61 %%%%%%%%%%% applyprim sees: ) @ (eq? (car #1 ) 'cond ) (FALSE ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 1 ] 58 %%%%%%%%%%% tar% = 53 & cl% = 56 & [al] = 49 applyprim sees: @ (eq? (car #1 ) 'cond ) (FALSE ) )~ evalif Remove from stack: 1 T store ret of: 17 in : 54 & len: J [ 50 ] 54 %%%%%%%%%%% K [ 51 ] 53 %%%%%%%%%%% 40 applyprim sees: (eq? (car #1 ) 'cond )~ setenvop H [ 49 ] 58 %%%%%%%%%%% H [ 56 ] 59 %%%%%%%%%%% G [ 24 ] 60 %%%%%%%%%%% applyprim sees: (car #1 ) 'cond )~ setenvop H [ 49 ] 61 %%%%%%%%%%% H [ 59 ] 62 %%%%%%%%%%% G [ 16 ] 63 %%%%%%%%%%% applyprim sees: #1 ) 'cond )~ E [ 21474836484 ] 64 %%%%%%%%%%% applyprim sees: ) 'cond )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 1 ] 61 %%%%%%%%%%% tar% = 58 & cl% = 59 & [al] = 49 applyprim sees: 'cond )~ C [ 7 ] 62 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 0 ] 58 %%%%%%%%%%% tar% = 53 & cl% = 56 & [al] = 49 applyprim sees: ~ POPBACK pos : 39 rett in: 48 op 116 Remove from stack: 12 F [ 0 ] 47 %%%%%%%%%%% tar% = 42 & cl% = 45 & al% = 2 applyprim sees: @ (eval (cond->if #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) ) )~ evalif Remove from stack: 1 F K [ 463 ] 42 %%%%%%%%%%% J [ 463 ] 43 %%%%%%%%%%% store ret/len of: 463 in : 43 applyprim sees: (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) )~ setenvop K [ 463 ] 47 %%%%%%%%%%% J [ 370 ] 48 %%%%%%%%%%% H [ 2 ] 49 %%%%%%%%%%% H [ 45 ] 50 %%%%%%%%%%% G [ 14 ] 51 %%%%%%%%%%% applyprim sees: (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) )~ setenvop K [ 463 ] 52 %%%%%%%%%%% J [ 370 ] 53 %%%%%%%%%%% H [ 2 ] 54 %%%%%%%%%%% H [ 50 ] 55 %%%%%%%%%%% G [ 91 ] 56 %%%%%%%%%%% applyprim sees: #1 ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) )~ E [ 21474836484 ] 57 %%%%%%%%%%% applyprim sees: ) @ (eval-primitive #1 #2 ) (@ (app? #1 ) @ (eval-app #1 #2 ) 'EvalERR ) )~ apply J [ 390 ] 53 %%%%%%%%%%% ret push of 390 at 53 & len push of 463 applyuserfunc applyprim sees: (or (contains? (operator #1 ) (aops ) ) (or (contains? (operator #1 ) (cops ) ) (or (contains? (operator #1 ) (lops ) ) (contains? (operator #1 ) (pops ) ) ) ) )~ setenvop H [ 54 ] 58 %%%%%%%%%%% H [ 55 ] 59 %%%%%%%%%%% G [ 12 ] 60 %%%%%%%%%%% applyprim sees: (contains? (operator #1 ) (aops ) ) (or (contains? (operator #1 ) (cops ) ) (or (contains? (operator #1 ) (lops ) ) (contains? (operator #1 ) (pops ) ) ) ) )~ setenvop K [ 162 ] 61 %%%%%%%%%%% J [ 0 ] 62 %%%%%%%%%%% H [ 54 ] 63 %%%%%%%%%%% H [ 59 ] 64 %%%%%%%%%%% G [ 92 ] 65 %%%%%%%%%%% applyprim sees: (operator #1 ) (aops ) ) (or (contains? (operator #1 ) (cops ) ) (or (contains? (operator #1 ) (lops ) ) (contains? (operator #1 ) (pops ) ) ) ) )~ setenvop K [ 162 ] 66 %%%%%%%%%%% J [ 0 ] 67 %%%%%%%%%%% H [ 54 ] 68 %%%%%%%%%%% H [ 64 ] 69 %%%%%%%%%%% G [ 80 ] 70 %%%%%%%%%%% applyprim sees: #1 ) (aops ) ) (or (contains? (operator #1 ) (cops ) ) (or (contains? (operator #1 ) (lops ) ) (contains? (operator #1 ) (pops ) ) ) ) )~ E [ 21474836484 ] 71 %%%%%%%%%%% applyprim sees: ) (aops ) ) (or (contains? (operator #1 ) (cops ) ) (or (contains? (operator #1 ) (lops ) ) (contains? (operator #1 ) (pops ) ) ) ) )~ apply J [ 30 ] 67 %%%%%%%%%%% ret push of 30 at 67 & len push of 162 applyuserfunc applyprim sees: (car #1 )~ setenvop H [ 68 ] 72 %%%%%%%%%%% H [ 69 ] 73 %%%%%%%%%%% G [ 16 ] 74 %%%%%%%%%%% applyprim sees: #1 )~ E [ 21474836484 ] 75 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 1 ] 72 %%%%%%%%%%% tar% = 66 & cl% = 69 & [al] = 68 applyprim sees: ~ POPBACK pos : 9 rett in: 67 op 91 Remove from stack: 7 C [ 1 ] 66 %%%%%%%%%%% tar% = 61 & cl% = 64 & al% = 54 applyprim sees: (aops ) ) (or (contains? (operator #1 ) (cops ) ) (or (contains? (operator #1 ) (lops ) ) (contains? (operator #1 ) (pops ) ) ) ) )~ setenvop K [ 162 ] 67 %%%%%%%%%%% J [ 30 ] 68 %%%%%%%%%%% H [ 54 ] 69 %%%%%%%%%%% H [ 64 ] 70 %%%%%%%%%%% G [ 87 ] 71 %%%%%%%%%%% applyprim sees: ) ) (or (contains? (operator #1 ) (cops ) ) (or (contains? (operator #1 ) (lops ) ) (contains? (operator #1 ) (pops ) ) ) ) )~ apply J [ 38 ] 68 %%%%%%%%%%% ret push of 38 at 68 & len push of 162 applyuserfunc applyprim sees: '(+ - * /)~ applyprim sees: ~ POPBACK pos : 10 rett in: 68 op 91 Remove from stack: 6 E [ 55834574860 ] 67 %%%%%%%%%%% tar% = 61 & cl% = 64 & al% = 54 applyprim sees: ) (or (contains? (operator #1 ) (cops ) ) (or (contains? (operator #1 ) (lops ) ) (contains? (operator #1 ) (pops ) ) ) ) )~ apply J [ 40 ] 62 %%%%%%%%%%% ret push of 40 at 62 & len push of 162 applyuserfunc applyprim sees: (@ (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop K [ 89 ] 68 %%%%%%%%%%% J [ 0 ] 69 %%%%%%%%%%% H [ 63 ] 70 %%%%%%%%%%% H [ 64 ] 71 %%%%%%%%%%% G [ 14 ] 72 %%%%%%%%%%% applyprim sees: (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop H [ 63 ] 73 %%%%%%%%%%% H [ 71 ] 74 %%%%%%%%%%% G [ 18 ] 75 %%%%%%%%%%% applyprim sees: #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ E [ 55834574860 ] 76 %%%%%%%%%%% applyprim sees: ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 0 ] 73 %%%%%%%%%%% tar% = 68 & cl% = 71 & [al] = 63 applyprim sees: @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ evalif Remove from stack: 1 F K [ 87 ] 68 %%%%%%%%%%% J [ 87 ] 69 %%%%%%%%%%% store ret/len of: 87 in : 69 applyprim sees: (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop K [ 87 ] 73 %%%%%%%%%%% J [ 26 ] 74 %%%%%%%%%%% H [ 63 ] 75 %%%%%%%%%%% H [ 71 ] 76 %%%%%%%%%%% G [ 14 ] 77 %%%%%%%%%%% applyprim sees: (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 63 ] 78 %%%%%%%%%%% H [ 76 ] 79 %%%%%%%%%%% G [ 24 ] 80 %%%%%%%%%%% applyprim sees: #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ C [ 1 ] 81 %%%%%%%%%%% applyprim sees: (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 63 ] 82 %%%%%%%%%%% H [ 79 ] 83 %%%%%%%%%%% G [ 16 ] 84 %%%%%%%%%%% applyprim sees: #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ E [ 55834574860 ] 85 %%%%%%%%%%% applyprim sees: ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 11 ] 82 %%%%%%%%%%% tar% = 78 & cl% = 79 & [al] = 63 applyprim sees: ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 0 ] 78 %%%%%%%%%%% tar% = 73 & cl% = 76 & [al] = 63 applyprim sees: @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ evalif Remove from stack: 1 F K [ 85 ] 73 %%%%%%%%%%% J [ 85 ] 74 %%%%%%%%%%% store ret/len of: 85 in : 74 applyprim sees: (contains? #1 (cdr #2 ) )~ setenvop K [ 85 ] 78 %%%%%%%%%%% J [ 59 ] 79 %%%%%%%%%%% H [ 63 ] 80 %%%%%%%%%%% H [ 76 ] 81 %%%%%%%%%%% G [ 92 ] 82 %%%%%%%%%%% applyprim sees: #1 (cdr #2 ) )~ C [ 1 ] 83 %%%%%%%%%%% applyprim sees: (cdr #2 ) )~ setenvop H [ 63 ] 84 %%%%%%%%%%% H [ 81 ] 85 %%%%%%%%%%% G [ 17 ] 86 %%%%%%%%%%% applyprim sees: #2 ) )~ E [ 55834574860 ] 87 %%%%%%%%%%% applyprim sees: ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 E [ 47244640266 ] 84 %%%%%%%%%%% tar% = 78 & cl% = 81 & [al] = 63 applyprim sees: )~ apply J [ 84 ] 79 %%%%%%%%%%% ret push of 84 at 79 & len push of 85 applyuserfunc applyprim sees: (@ (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop K [ 89 ] 85 %%%%%%%%%%% J [ 0 ] 86 %%%%%%%%%%% H [ 80 ] 87 %%%%%%%%%%% H [ 81 ] 88 %%%%%%%%%%% G [ 14 ] 89 %%%%%%%%%%% applyprim sees: (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop H [ 80 ] 90 %%%%%%%%%%% H [ 88 ] 91 %%%%%%%%%%% G [ 18 ] 92 %%%%%%%%%%% applyprim sees: #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ E [ 47244640266 ] 93 %%%%%%%%%%% applyprim sees: ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 0 ] 90 %%%%%%%%%%% tar% = 85 & cl% = 88 & [al] = 80 applyprim sees: @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ evalif Remove from stack: 1 F K [ 87 ] 85 %%%%%%%%%%% J [ 87 ] 86 %%%%%%%%%%% store ret/len of: 87 in : 86 applyprim sees: (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop K [ 87 ] 90 %%%%%%%%%%% J [ 26 ] 91 %%%%%%%%%%% H [ 80 ] 92 %%%%%%%%%%% H [ 88 ] 93 %%%%%%%%%%% G [ 14 ] 94 %%%%%%%%%%% applyprim sees: (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 80 ] 95 %%%%%%%%%%% H [ 93 ] 96 %%%%%%%%%%% G [ 24 ] 97 %%%%%%%%%%% applyprim sees: #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ C [ 1 ] 98 %%%%%%%%%%% applyprim sees: (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 80 ] 99 %%%%%%%%%%% H [ 96 ] 100 %%%%%%%%%%% G [ 16 ] 101 %%%%%%%%%%% applyprim sees: #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ E [ 47244640266 ] 102 %%%%%%%%%%% applyprim sees: ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 10 ] 99 %%%%%%%%%%% tar% = 95 & cl% = 96 & [al] = 80 applyprim sees: ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 0 ] 95 %%%%%%%%%%% tar% = 90 & cl% = 93 & [al] = 80 applyprim sees: @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ evalif Remove from stack: 1 F K [ 85 ] 90 %%%%%%%%%%% J [ 85 ] 91 %%%%%%%%%%% store ret/len of: 85 in : 91 applyprim sees: (contains? #1 (cdr #2 ) )~ setenvop K [ 85 ] 95 %%%%%%%%%%% J [ 59 ] 96 %%%%%%%%%%% H [ 80 ] 97 %%%%%%%%%%% H [ 93 ] 98 %%%%%%%%%%% G [ 92 ] 99 %%%%%%%%%%% applyprim sees: #1 (cdr #2 ) )~ C [ 1 ] 100 %%%%%%%%%%% applyprim sees: (cdr #2 ) )~ setenvop H [ 80 ] 101 %%%%%%%%%%% H [ 98 ] 102 %%%%%%%%%%% G [ 17 ] 103 %%%%%%%%%%% applyprim sees: #2 ) )~ E [ 47244640266 ] 104 %%%%%%%%%%% applyprim sees: ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 E [ 38654705672 ] 101 %%%%%%%%%%% tar% = 95 & cl% = 98 & [al] = 80 applyprim sees: )~ apply J [ 84 ] 96 %%%%%%%%%%% ret push of 84 at 96 & len push of 85 applyuserfunc applyprim sees: (@ (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop K [ 89 ] 102 %%%%%%%%%%% J [ 0 ] 103 %%%%%%%%%%% H [ 97 ] 104 %%%%%%%%%%% H [ 98 ] 105 %%%%%%%%%%% G [ 14 ] 106 %%%%%%%%%%% applyprim sees: (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop H [ 97 ] 107 %%%%%%%%%%% H [ 105 ] 108 %%%%%%%%%%% G [ 18 ] 109 %%%%%%%%%%% applyprim sees: #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ E [ 38654705672 ] 110 %%%%%%%%%%% applyprim sees: ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 0 ] 107 %%%%%%%%%%% tar% = 102 & cl% = 105 & [al] = 97 applyprim sees: @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ evalif Remove from stack: 1 F K [ 87 ] 102 %%%%%%%%%%% J [ 87 ] 103 %%%%%%%%%%% store ret/len of: 87 in : 103 applyprim sees: (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop K [ 87 ] 107 %%%%%%%%%%% J [ 26 ] 108 %%%%%%%%%%% H [ 97 ] 109 %%%%%%%%%%% H [ 105 ] 110 %%%%%%%%%%% G [ 14 ] 111 %%%%%%%%%%% applyprim sees: (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 97 ] 112 %%%%%%%%%%% H [ 110 ] 113 %%%%%%%%%%% G [ 24 ] 114 %%%%%%%%%%% applyprim sees: #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ C [ 1 ] 115 %%%%%%%%%%% applyprim sees: (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 97 ] 116 %%%%%%%%%%% H [ 113 ] 117 %%%%%%%%%%% G [ 16 ] 118 %%%%%%%%%%% applyprim sees: #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ E [ 38654705672 ] 119 %%%%%%%%%%% applyprim sees: ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 9 ] 116 %%%%%%%%%%% tar% = 112 & cl% = 113 & [al] = 97 applyprim sees: ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 0 ] 112 %%%%%%%%%%% tar% = 107 & cl% = 110 & [al] = 97 applyprim sees: @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ evalif Remove from stack: 1 F K [ 85 ] 107 %%%%%%%%%%% J [ 85 ] 108 %%%%%%%%%%% store ret/len of: 85 in : 108 applyprim sees: (contains? #1 (cdr #2 ) )~ setenvop K [ 85 ] 112 %%%%%%%%%%% J [ 59 ] 113 %%%%%%%%%%% H [ 97 ] 114 %%%%%%%%%%% H [ 110 ] 115 %%%%%%%%%%% G [ 92 ] 116 %%%%%%%%%%% applyprim sees: #1 (cdr #2 ) )~ C [ 1 ] 117 %%%%%%%%%%% applyprim sees: (cdr #2 ) )~ setenvop H [ 97 ] 118 %%%%%%%%%%% H [ 115 ] 119 %%%%%%%%%%% G [ 17 ] 120 %%%%%%%%%%% applyprim sees: #2 ) )~ E [ 38654705672 ] 121 %%%%%%%%%%% applyprim sees: ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 E [ 30064771078 ] 118 %%%%%%%%%%% tar% = 112 & cl% = 115 & [al] = 97 applyprim sees: )~ apply J [ 84 ] 113 %%%%%%%%%%% ret push of 84 at 113 & len push of 85 applyuserfunc applyprim sees: (@ (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop K [ 89 ] 119 %%%%%%%%%%% J [ 0 ] 120 %%%%%%%%%%% H [ 114 ] 121 %%%%%%%%%%% H [ 115 ] 122 %%%%%%%%%%% G [ 14 ] 123 %%%%%%%%%%% applyprim sees: (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop H [ 114 ] 124 %%%%%%%%%%% H [ 122 ] 125 %%%%%%%%%%% G [ 18 ] 126 %%%%%%%%%%% applyprim sees: #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ E [ 30064771078 ] 127 %%%%%%%%%%% applyprim sees: ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 0 ] 124 %%%%%%%%%%% tar% = 119 & cl% = 122 & [al] = 114 applyprim sees: @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ evalif Remove from stack: 1 F K [ 87 ] 119 %%%%%%%%%%% J [ 87 ] 120 %%%%%%%%%%% store ret/len of: 87 in : 120 applyprim sees: (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop K [ 87 ] 124 %%%%%%%%%%% J [ 26 ] 125 %%%%%%%%%%% H [ 114 ] 126 %%%%%%%%%%% H [ 122 ] 127 %%%%%%%%%%% G [ 14 ] 128 %%%%%%%%%%% applyprim sees: (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 114 ] 129 %%%%%%%%%%% H [ 127 ] 130 %%%%%%%%%%% G [ 24 ] 131 %%%%%%%%%%% applyprim sees: #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ C [ 1 ] 132 %%%%%%%%%%% applyprim sees: (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 114 ] 133 %%%%%%%%%%% H [ 130 ] 134 %%%%%%%%%%% G [ 16 ] 135 %%%%%%%%%%% applyprim sees: #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ E [ 30064771078 ] 136 %%%%%%%%%%% applyprim sees: ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 8 ] 133 %%%%%%%%%%% tar% = 129 & cl% = 130 & [al] = 114 applyprim sees: ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 0 ] 129 %%%%%%%%%%% tar% = 124 & cl% = 127 & [al] = 114 applyprim sees: @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ evalif Remove from stack: 1 F K [ 85 ] 124 %%%%%%%%%%% J [ 85 ] 125 %%%%%%%%%%% store ret/len of: 85 in : 125 applyprim sees: (contains? #1 (cdr #2 ) )~ setenvop K [ 85 ] 129 %%%%%%%%%%% J [ 59 ] 130 %%%%%%%%%%% H [ 114 ] 131 %%%%%%%%%%% H [ 127 ] 132 %%%%%%%%%%% G [ 92 ] 133 %%%%%%%%%%% applyprim sees: #1 (cdr #2 ) )~ C [ 1 ] 134 %%%%%%%%%%% applyprim sees: (cdr #2 ) )~ setenvop H [ 114 ] 135 %%%%%%%%%%% H [ 132 ] 136 %%%%%%%%%%% G [ 17 ] 137 %%%%%%%%%%% applyprim sees: #2 ) )~ E [ 30064771078 ] 138 %%%%%%%%%%% applyprim sees: ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 B [ 0 ] 135 %%%%%%%%%%% tar% = 129 & cl% = 132 & [al] = 114 applyprim sees: )~ apply J [ 84 ] 130 %%%%%%%%%%% ret push of 84 at 130 & len push of 85 applyuserfunc applyprim sees: (@ (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop K [ 89 ] 136 %%%%%%%%%%% J [ 0 ] 137 %%%%%%%%%%% H [ 131 ] 138 %%%%%%%%%%% H [ 132 ] 139 %%%%%%%%%%% G [ 14 ] 140 %%%%%%%%%%% applyprim sees: (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop H [ 131 ] 141 %%%%%%%%%%% H [ 139 ] 142 %%%%%%%%%%% G [ 18 ] 143 %%%%%%%%%%% applyprim sees: #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ B [ 0 ] 144 %%%%%%%%%%% applyprim sees: ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 1 ] 141 %%%%%%%%%%% tar% = 136 & cl% = 139 & [al] = 131 applyprim sees: @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ evalif Remove from stack: 1 T store ret of: 17 in : 137 & len: J [ 88 ] 137 %%%%%%%%%%% K [ 89 ] 136 %%%%%%%%%%% 26 applyprim sees: (FALSE )~ setenvop K [ 26 ] 141 %%%%%%%%%%% J [ 17 ] 142 %%%%%%%%%%% H [ 131 ] 143 %%%%%%%%%%% H [ 139 ] 144 %%%%%%%%%%% G [ 28 ] 145 %%%%%%%%%%% applyprim sees: )~ apply J [ 25 ] 142 %%%%%%%%%%% ret push of 25 at 142 & len push of 26 applyuserfunc applyprim sees: (= 0 1 )~ setenvop H [ 143 ] 146 %%%%%%%%%%% H [ 144 ] 147 %%%%%%%%%%% G [ 5 ] 148 %%%%%%%%%%% applyprim sees: 0 1 )~ applyprim sees: 1 )~ applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 0 ] 146 %%%%%%%%%%% tar% = 141 & cl% = 144 & [al] = 143 applyprim sees: ~ POPBACK pos : 8 rett in: 142 op 92 Remove from stack: 6 F [ 0 ] 141 %%%%%%%%%%% tar% = 136 & cl% = 139 & al% = 131 applyprim sees: ~ POPBACK pos : 25 rett in: 130 op 92 Remove from stack: 13 F [ 0 ] 129 %%%%%%%%%%% tar% = 124 & cl% = 127 & al% = 114 applyprim sees: ~ POPBACK pos : 84 rett in: 113 op 92 Remove from stack: 18 F [ 0 ] 112 %%%%%%%%%%% tar% = 107 & cl% = 110 & al% = 97 applyprim sees: ~ POPBACK pos : 84 rett in: 96 op 92 Remove from stack: 18 F [ 0 ] 95 %%%%%%%%%%% tar% = 90 & cl% = 93 & al% = 80 applyprim sees: ~ POPBACK pos : 84 rett in: 79 op 92 Remove from stack: 18 F [ 0 ] 78 %%%%%%%%%%% tar% = 73 & cl% = 76 & al% = 63 applyprim sees: ~ POPBACK pos : 84 rett in: 62 op 91 Remove from stack: 18 F [ 0 ] 61 %%%%%%%%%%% tar% = 58 & cl% = 59 & al% = 54 applyprim sees: (or (contains? (operator #1 ) (cops ) ) (or (contains? (operator #1 ) (lops ) ) (contains? (operator #1 ) (pops ) ) ) ) )~ setenvop H [ 54 ] 62 %%%%%%%%%%% H [ 59 ] 63 %%%%%%%%%%% G [ 12 ] 64 %%%%%%%%%%% applyprim sees: (contains? (operator #1 ) (cops ) ) (or (contains? (operator #1 ) (lops ) ) (contains? (operator #1 ) (pops ) ) ) ) )~ setenvop K [ 162 ] 65 %%%%%%%%%%% J [ 40 ] 66 %%%%%%%%%%% H [ 54 ] 67 %%%%%%%%%%% H [ 63 ] 68 %%%%%%%%%%% G [ 92 ] 69 %%%%%%%%%%% applyprim sees: (operator #1 ) (cops ) ) (or (contains? (operator #1 ) (lops ) ) (contains? (operator #1 ) (pops ) ) ) ) )~ setenvop K [ 162 ] 70 %%%%%%%%%%% J [ 40 ] 71 %%%%%%%%%%% H [ 54 ] 72 %%%%%%%%%%% H [ 68 ] 73 %%%%%%%%%%% G [ 80 ] 74 %%%%%%%%%%% applyprim sees: #1 ) (cops ) ) (or (contains? (operator #1 ) (lops ) ) (contains? (operator #1 ) (pops ) ) ) ) )~ E [ 21474836484 ] 75 %%%%%%%%%%% applyprim sees: ) (cops ) ) (or (contains? (operator #1 ) (lops ) ) (contains? (operator #1 ) (pops ) ) ) ) )~ apply J [ 70 ] 71 %%%%%%%%%%% ret push of 70 at 71 & len push of 162 applyuserfunc applyprim sees: (car #1 )~ setenvop H [ 72 ] 76 %%%%%%%%%%% H [ 73 ] 77 %%%%%%%%%%% G [ 16 ] 78 %%%%%%%%%%% applyprim sees: #1 )~ E [ 21474836484 ] 79 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 1 ] 76 %%%%%%%%%%% tar% = 70 & cl% = 73 & [al] = 72 applyprim sees: ~ POPBACK pos : 9 rett in: 71 op 91 Remove from stack: 7 C [ 1 ] 70 %%%%%%%%%%% tar% = 65 & cl% = 68 & al% = 54 applyprim sees: (cops ) ) (or (contains? (operator #1 ) (lops ) ) (contains? (operator #1 ) (pops ) ) ) ) )~ setenvop K [ 162 ] 71 %%%%%%%%%%% J [ 70 ] 72 %%%%%%%%%%% H [ 54 ] 73 %%%%%%%%%%% H [ 68 ] 74 %%%%%%%%%%% G [ 88 ] 75 %%%%%%%%%%% applyprim sees: ) ) (or (contains? (operator #1 ) (lops ) ) (contains? (operator #1 ) (pops ) ) ) ) )~ apply J [ 78 ] 72 %%%%%%%%%%% ret push of 78 at 72 & len push of 162 applyuserfunc applyprim sees: '(= < > <= >= eq?)~ applyprim sees: ~ POPBACK pos : 18 rett in: 72 op 91 Remove from stack: 6 E [ 107374182424 ] 71 %%%%%%%%%%% tar% = 65 & cl% = 68 & al% = 54 applyprim sees: ) (or (contains? (operator #1 ) (lops ) ) (contains? (operator #1 ) (pops ) ) ) ) )~ apply J [ 80 ] 66 %%%%%%%%%%% ret push of 80 at 66 & len push of 162 applyuserfunc applyprim sees: (@ (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop K [ 89 ] 72 %%%%%%%%%%% J [ 0 ] 73 %%%%%%%%%%% H [ 67 ] 74 %%%%%%%%%%% H [ 68 ] 75 %%%%%%%%%%% G [ 14 ] 76 %%%%%%%%%%% applyprim sees: (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop H [ 67 ] 77 %%%%%%%%%%% H [ 75 ] 78 %%%%%%%%%%% G [ 18 ] 79 %%%%%%%%%%% applyprim sees: #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ E [ 107374182424 ] 80 %%%%%%%%%%% applyprim sees: ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 0 ] 77 %%%%%%%%%%% tar% = 72 & cl% = 75 & [al] = 67 applyprim sees: @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ evalif Remove from stack: 1 F K [ 87 ] 72 %%%%%%%%%%% J [ 87 ] 73 %%%%%%%%%%% store ret/len of: 87 in : 73 applyprim sees: (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop K [ 87 ] 77 %%%%%%%%%%% J [ 26 ] 78 %%%%%%%%%%% H [ 67 ] 79 %%%%%%%%%%% H [ 75 ] 80 %%%%%%%%%%% G [ 14 ] 81 %%%%%%%%%%% applyprim sees: (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 67 ] 82 %%%%%%%%%%% H [ 80 ] 83 %%%%%%%%%%% G [ 24 ] 84 %%%%%%%%%%% applyprim sees: #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ C [ 1 ] 85 %%%%%%%%%%% applyprim sees: (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 67 ] 86 %%%%%%%%%%% H [ 83 ] 87 %%%%%%%%%%% G [ 16 ] 88 %%%%%%%%%%% applyprim sees: #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ E [ 107374182424 ] 89 %%%%%%%%%%% applyprim sees: ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 17 ] 86 %%%%%%%%%%% tar% = 82 & cl% = 83 & [al] = 67 applyprim sees: ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 0 ] 82 %%%%%%%%%%% tar% = 77 & cl% = 80 & [al] = 67 applyprim sees: @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ evalif Remove from stack: 1 F K [ 85 ] 77 %%%%%%%%%%% J [ 85 ] 78 %%%%%%%%%%% store ret/len of: 85 in : 78 applyprim sees: (contains? #1 (cdr #2 ) )~ setenvop K [ 85 ] 82 %%%%%%%%%%% J [ 59 ] 83 %%%%%%%%%%% H [ 67 ] 84 %%%%%%%%%%% H [ 80 ] 85 %%%%%%%%%%% G [ 92 ] 86 %%%%%%%%%%% applyprim sees: #1 (cdr #2 ) )~ C [ 1 ] 87 %%%%%%%%%%% applyprim sees: (cdr #2 ) )~ setenvop H [ 67 ] 88 %%%%%%%%%%% H [ 85 ] 89 %%%%%%%%%%% G [ 17 ] 90 %%%%%%%%%%% applyprim sees: #2 ) )~ E [ 107374182424 ] 91 %%%%%%%%%%% applyprim sees: ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 E [ 98784247830 ] 88 %%%%%%%%%%% tar% = 82 & cl% = 85 & [al] = 67 applyprim sees: )~ apply J [ 84 ] 83 %%%%%%%%%%% ret push of 84 at 83 & len push of 85 applyuserfunc applyprim sees: (@ (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop K [ 89 ] 89 %%%%%%%%%%% J [ 0 ] 90 %%%%%%%%%%% H [ 84 ] 91 %%%%%%%%%%% H [ 85 ] 92 %%%%%%%%%%% G [ 14 ] 93 %%%%%%%%%%% applyprim sees: (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop H [ 84 ] 94 %%%%%%%%%%% H [ 92 ] 95 %%%%%%%%%%% G [ 18 ] 96 %%%%%%%%%%% applyprim sees: #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ E [ 98784247830 ] 97 %%%%%%%%%%% applyprim sees: ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 0 ] 94 %%%%%%%%%%% tar% = 89 & cl% = 92 & [al] = 84 applyprim sees: @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ evalif Remove from stack: 1 F K [ 87 ] 89 %%%%%%%%%%% J [ 87 ] 90 %%%%%%%%%%% store ret/len of: 87 in : 90 applyprim sees: (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop K [ 87 ] 94 %%%%%%%%%%% J [ 26 ] 95 %%%%%%%%%%% H [ 84 ] 96 %%%%%%%%%%% H [ 92 ] 97 %%%%%%%%%%% G [ 14 ] 98 %%%%%%%%%%% applyprim sees: (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 84 ] 99 %%%%%%%%%%% H [ 97 ] 100 %%%%%%%%%%% G [ 24 ] 101 %%%%%%%%%%% applyprim sees: #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ C [ 1 ] 102 %%%%%%%%%%% applyprim sees: (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 84 ] 103 %%%%%%%%%%% H [ 100 ] 104 %%%%%%%%%%% G [ 16 ] 105 %%%%%%%%%%% applyprim sees: #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ E [ 98784247830 ] 106 %%%%%%%%%%% applyprim sees: ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 16 ] 103 %%%%%%%%%%% tar% = 99 & cl% = 100 & [al] = 84 applyprim sees: ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 0 ] 99 %%%%%%%%%%% tar% = 94 & cl% = 97 & [al] = 84 applyprim sees: @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ evalif Remove from stack: 1 F K [ 85 ] 94 %%%%%%%%%%% J [ 85 ] 95 %%%%%%%%%%% store ret/len of: 85 in : 95 applyprim sees: (contains? #1 (cdr #2 ) )~ setenvop K [ 85 ] 99 %%%%%%%%%%% J [ 59 ] 100 %%%%%%%%%%% H [ 84 ] 101 %%%%%%%%%%% H [ 97 ] 102 %%%%%%%%%%% G [ 92 ] 103 %%%%%%%%%%% applyprim sees: #1 (cdr #2 ) )~ C [ 1 ] 104 %%%%%%%%%%% applyprim sees: (cdr #2 ) )~ setenvop H [ 84 ] 105 %%%%%%%%%%% H [ 102 ] 106 %%%%%%%%%%% G [ 17 ] 107 %%%%%%%%%%% applyprim sees: #2 ) )~ E [ 98784247830 ] 108 %%%%%%%%%%% applyprim sees: ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 E [ 90194313236 ] 105 %%%%%%%%%%% tar% = 99 & cl% = 102 & [al] = 84 applyprim sees: )~ apply J [ 84 ] 100 %%%%%%%%%%% ret push of 84 at 100 & len push of 85 applyuserfunc applyprim sees: (@ (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop K [ 89 ] 106 %%%%%%%%%%% J [ 0 ] 107 %%%%%%%%%%% H [ 101 ] 108 %%%%%%%%%%% H [ 102 ] 109 %%%%%%%%%%% G [ 14 ] 110 %%%%%%%%%%% applyprim sees: (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop H [ 101 ] 111 %%%%%%%%%%% H [ 109 ] 112 %%%%%%%%%%% G [ 18 ] 113 %%%%%%%%%%% applyprim sees: #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ E [ 90194313236 ] 114 %%%%%%%%%%% applyprim sees: ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 0 ] 111 %%%%%%%%%%% tar% = 106 & cl% = 109 & [al] = 101 applyprim sees: @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ evalif Remove from stack: 1 F K [ 87 ] 106 %%%%%%%%%%% J [ 87 ] 107 %%%%%%%%%%% store ret/len of: 87 in : 107 applyprim sees: (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop K [ 87 ] 111 %%%%%%%%%%% J [ 26 ] 112 %%%%%%%%%%% H [ 101 ] 113 %%%%%%%%%%% H [ 109 ] 114 %%%%%%%%%%% G [ 14 ] 115 %%%%%%%%%%% applyprim sees: (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 101 ] 116 %%%%%%%%%%% H [ 114 ] 117 %%%%%%%%%%% G [ 24 ] 118 %%%%%%%%%%% applyprim sees: #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ C [ 1 ] 119 %%%%%%%%%%% applyprim sees: (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 101 ] 120 %%%%%%%%%%% H [ 117 ] 121 %%%%%%%%%%% G [ 16 ] 122 %%%%%%%%%%% applyprim sees: #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ E [ 90194313236 ] 123 %%%%%%%%%%% applyprim sees: ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 15 ] 120 %%%%%%%%%%% tar% = 116 & cl% = 117 & [al] = 101 applyprim sees: ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 0 ] 116 %%%%%%%%%%% tar% = 111 & cl% = 114 & [al] = 101 applyprim sees: @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ evalif Remove from stack: 1 F K [ 85 ] 111 %%%%%%%%%%% J [ 85 ] 112 %%%%%%%%%%% store ret/len of: 85 in : 112 applyprim sees: (contains? #1 (cdr #2 ) )~ setenvop K [ 85 ] 116 %%%%%%%%%%% J [ 59 ] 117 %%%%%%%%%%% H [ 101 ] 118 %%%%%%%%%%% H [ 114 ] 119 %%%%%%%%%%% G [ 92 ] 120 %%%%%%%%%%% applyprim sees: #1 (cdr #2 ) )~ C [ 1 ] 121 %%%%%%%%%%% applyprim sees: (cdr #2 ) )~ setenvop H [ 101 ] 122 %%%%%%%%%%% H [ 119 ] 123 %%%%%%%%%%% G [ 17 ] 124 %%%%%%%%%%% applyprim sees: #2 ) )~ E [ 90194313236 ] 125 %%%%%%%%%%% applyprim sees: ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 E [ 81604378642 ] 122 %%%%%%%%%%% tar% = 116 & cl% = 119 & [al] = 101 applyprim sees: )~ apply J [ 84 ] 117 %%%%%%%%%%% ret push of 84 at 117 & len push of 85 applyuserfunc applyprim sees: (@ (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop K [ 89 ] 123 %%%%%%%%%%% J [ 0 ] 124 %%%%%%%%%%% H [ 118 ] 125 %%%%%%%%%%% H [ 119 ] 126 %%%%%%%%%%% G [ 14 ] 127 %%%%%%%%%%% applyprim sees: (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop H [ 118 ] 128 %%%%%%%%%%% H [ 126 ] 129 %%%%%%%%%%% G [ 18 ] 130 %%%%%%%%%%% applyprim sees: #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ E [ 81604378642 ] 131 %%%%%%%%%%% applyprim sees: ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 0 ] 128 %%%%%%%%%%% tar% = 123 & cl% = 126 & [al] = 118 applyprim sees: @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ evalif Remove from stack: 1 F K [ 87 ] 123 %%%%%%%%%%% J [ 87 ] 124 %%%%%%%%%%% store ret/len of: 87 in : 124 applyprim sees: (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop K [ 87 ] 128 %%%%%%%%%%% J [ 26 ] 129 %%%%%%%%%%% H [ 118 ] 130 %%%%%%%%%%% H [ 126 ] 131 %%%%%%%%%%% G [ 14 ] 132 %%%%%%%%%%% applyprim sees: (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 118 ] 133 %%%%%%%%%%% H [ 131 ] 134 %%%%%%%%%%% G [ 24 ] 135 %%%%%%%%%%% applyprim sees: #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ C [ 1 ] 136 %%%%%%%%%%% applyprim sees: (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 118 ] 137 %%%%%%%%%%% H [ 134 ] 138 %%%%%%%%%%% G [ 16 ] 139 %%%%%%%%%%% applyprim sees: #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ E [ 81604378642 ] 140 %%%%%%%%%%% applyprim sees: ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 14 ] 137 %%%%%%%%%%% tar% = 133 & cl% = 134 & [al] = 118 applyprim sees: ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 0 ] 133 %%%%%%%%%%% tar% = 128 & cl% = 131 & [al] = 118 applyprim sees: @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ evalif Remove from stack: 1 F K [ 85 ] 128 %%%%%%%%%%% J [ 85 ] 129 %%%%%%%%%%% store ret/len of: 85 in : 129 applyprim sees: (contains? #1 (cdr #2 ) )~ setenvop K [ 85 ] 133 %%%%%%%%%%% J [ 59 ] 134 %%%%%%%%%%% H [ 118 ] 135 %%%%%%%%%%% H [ 131 ] 136 %%%%%%%%%%% G [ 92 ] 137 %%%%%%%%%%% applyprim sees: #1 (cdr #2 ) )~ C [ 1 ] 138 %%%%%%%%%%% applyprim sees: (cdr #2 ) )~ setenvop H [ 118 ] 139 %%%%%%%%%%% H [ 136 ] 140 %%%%%%%%%%% G [ 17 ] 141 %%%%%%%%%%% applyprim sees: #2 ) )~ E [ 81604378642 ] 142 %%%%%%%%%%% applyprim sees: ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 E [ 73014444048 ] 139 %%%%%%%%%%% tar% = 133 & cl% = 136 & [al] = 118 applyprim sees: )~ apply J [ 84 ] 134 %%%%%%%%%%% ret push of 84 at 134 & len push of 85 applyuserfunc applyprim sees: (@ (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop K [ 89 ] 140 %%%%%%%%%%% J [ 0 ] 141 %%%%%%%%%%% H [ 135 ] 142 %%%%%%%%%%% H [ 136 ] 143 %%%%%%%%%%% G [ 14 ] 144 %%%%%%%%%%% applyprim sees: (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop H [ 135 ] 145 %%%%%%%%%%% H [ 143 ] 146 %%%%%%%%%%% G [ 18 ] 147 %%%%%%%%%%% applyprim sees: #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ E [ 73014444048 ] 148 %%%%%%%%%%% applyprim sees: ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 0 ] 145 %%%%%%%%%%% tar% = 140 & cl% = 143 & [al] = 135 applyprim sees: @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ evalif Remove from stack: 1 F K [ 87 ] 140 %%%%%%%%%%% J [ 87 ] 141 %%%%%%%%%%% store ret/len of: 87 in : 141 applyprim sees: (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop K [ 87 ] 145 %%%%%%%%%%% J [ 26 ] 146 %%%%%%%%%%% H [ 135 ] 147 %%%%%%%%%%% H [ 143 ] 148 %%%%%%%%%%% G [ 14 ] 149 %%%%%%%%%%% applyprim sees: (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 135 ] 150 %%%%%%%%%%% H [ 148 ] 151 %%%%%%%%%%% G [ 24 ] 152 %%%%%%%%%%% applyprim sees: #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ C [ 1 ] 153 %%%%%%%%%%% applyprim sees: (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 135 ] 154 %%%%%%%%%%% H [ 151 ] 155 %%%%%%%%%%% G [ 16 ] 156 %%%%%%%%%%% applyprim sees: #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ E [ 73014444048 ] 157 %%%%%%%%%%% applyprim sees: ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 13 ] 154 %%%%%%%%%%% tar% = 150 & cl% = 151 & [al] = 135 applyprim sees: ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 0 ] 150 %%%%%%%%%%% tar% = 145 & cl% = 148 & [al] = 135 applyprim sees: @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ evalif Remove from stack: 1 F K [ 85 ] 145 %%%%%%%%%%% J [ 85 ] 146 %%%%%%%%%%% store ret/len of: 85 in : 146 applyprim sees: (contains? #1 (cdr #2 ) )~ setenvop K [ 85 ] 150 %%%%%%%%%%% J [ 59 ] 151 %%%%%%%%%%% H [ 135 ] 152 %%%%%%%%%%% H [ 148 ] 153 %%%%%%%%%%% G [ 92 ] 154 %%%%%%%%%%% applyprim sees: #1 (cdr #2 ) )~ C [ 1 ] 155 %%%%%%%%%%% applyprim sees: (cdr #2 ) )~ setenvop H [ 135 ] 156 %%%%%%%%%%% H [ 153 ] 157 %%%%%%%%%%% G [ 17 ] 158 %%%%%%%%%%% applyprim sees: #2 ) )~ E [ 73014444048 ] 159 %%%%%%%%%%% applyprim sees: ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 E [ 64424509454 ] 156 %%%%%%%%%%% tar% = 150 & cl% = 153 & [al] = 135 applyprim sees: )~ apply J [ 84 ] 151 %%%%%%%%%%% ret push of 84 at 151 & len push of 85 applyuserfunc applyprim sees: (@ (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop K [ 89 ] 157 %%%%%%%%%%% J [ 0 ] 158 %%%%%%%%%%% H [ 152 ] 159 %%%%%%%%%%% H [ 153 ] 160 %%%%%%%%%%% G [ 14 ] 161 %%%%%%%%%%% applyprim sees: (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop H [ 152 ] 162 %%%%%%%%%%% H [ 160 ] 163 %%%%%%%%%%% G [ 18 ] 164 %%%%%%%%%%% applyprim sees: #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ E [ 64424509454 ] 165 %%%%%%%%%%% applyprim sees: ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 0 ] 162 %%%%%%%%%%% tar% = 157 & cl% = 160 & [al] = 152 applyprim sees: @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ evalif Remove from stack: 1 F K [ 87 ] 157 %%%%%%%%%%% J [ 87 ] 158 %%%%%%%%%%% store ret/len of: 87 in : 158 applyprim sees: (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop K [ 87 ] 162 %%%%%%%%%%% J [ 26 ] 163 %%%%%%%%%%% H [ 152 ] 164 %%%%%%%%%%% H [ 160 ] 165 %%%%%%%%%%% G [ 14 ] 166 %%%%%%%%%%% applyprim sees: (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 152 ] 167 %%%%%%%%%%% H [ 165 ] 168 %%%%%%%%%%% G [ 24 ] 169 %%%%%%%%%%% applyprim sees: #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ C [ 1 ] 170 %%%%%%%%%%% applyprim sees: (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 152 ] 171 %%%%%%%%%%% H [ 168 ] 172 %%%%%%%%%%% G [ 16 ] 173 %%%%%%%%%%% applyprim sees: #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ E [ 64424509454 ] 174 %%%%%%%%%%% applyprim sees: ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 12 ] 171 %%%%%%%%%%% tar% = 167 & cl% = 168 & [al] = 152 applyprim sees: ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 0 ] 167 %%%%%%%%%%% tar% = 162 & cl% = 165 & [al] = 152 applyprim sees: @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ evalif Remove from stack: 1 F K [ 85 ] 162 %%%%%%%%%%% J [ 85 ] 163 %%%%%%%%%%% store ret/len of: 85 in : 163 applyprim sees: (contains? #1 (cdr #2 ) )~ setenvop K [ 85 ] 167 %%%%%%%%%%% J [ 59 ] 168 %%%%%%%%%%% H [ 152 ] 169 %%%%%%%%%%% H [ 165 ] 170 %%%%%%%%%%% G [ 92 ] 171 %%%%%%%%%%% applyprim sees: #1 (cdr #2 ) )~ C [ 1 ] 172 %%%%%%%%%%% applyprim sees: (cdr #2 ) )~ setenvop H [ 152 ] 173 %%%%%%%%%%% H [ 170 ] 174 %%%%%%%%%%% G [ 17 ] 175 %%%%%%%%%%% applyprim sees: #2 ) )~ E [ 64424509454 ] 176 %%%%%%%%%%% applyprim sees: ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 B [ 0 ] 173 %%%%%%%%%%% tar% = 167 & cl% = 170 & [al] = 152 applyprim sees: )~ apply J [ 84 ] 168 %%%%%%%%%%% ret push of 84 at 168 & len push of 85 applyuserfunc applyprim sees: (@ (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop K [ 89 ] 174 %%%%%%%%%%% J [ 0 ] 175 %%%%%%%%%%% H [ 169 ] 176 %%%%%%%%%%% H [ 170 ] 177 %%%%%%%%%%% G [ 14 ] 178 %%%%%%%%%%% applyprim sees: (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop H [ 169 ] 179 %%%%%%%%%%% H [ 177 ] 180 %%%%%%%%%%% G [ 18 ] 181 %%%%%%%%%%% applyprim sees: #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ B [ 0 ] 182 %%%%%%%%%%% applyprim sees: ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 1 ] 179 %%%%%%%%%%% tar% = 174 & cl% = 177 & [al] = 169 applyprim sees: @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ evalif Remove from stack: 1 T store ret of: 17 in : 175 & len: J [ 88 ] 175 %%%%%%%%%%% K [ 89 ] 174 %%%%%%%%%%% 26 applyprim sees: (FALSE )~ setenvop K [ 26 ] 179 %%%%%%%%%%% J [ 17 ] 180 %%%%%%%%%%% H [ 169 ] 181 %%%%%%%%%%% H [ 177 ] 182 %%%%%%%%%%% G [ 28 ] 183 %%%%%%%%%%% applyprim sees: )~ apply J [ 25 ] 180 %%%%%%%%%%% ret push of 25 at 180 & len push of 26 applyuserfunc applyprim sees: (= 0 1 )~ setenvop H [ 181 ] 184 %%%%%%%%%%% H [ 182 ] 185 %%%%%%%%%%% G [ 5 ] 186 %%%%%%%%%%% applyprim sees: 0 1 )~ applyprim sees: 1 )~ applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 0 ] 184 %%%%%%%%%%% tar% = 179 & cl% = 182 & [al] = 181 applyprim sees: ~ POPBACK pos : 8 rett in: 180 op 92 Remove from stack: 6 F [ 0 ] 179 %%%%%%%%%%% tar% = 174 & cl% = 177 & al% = 169 applyprim sees: ~ POPBACK pos : 25 rett in: 168 op 92 Remove from stack: 13 F [ 0 ] 167 %%%%%%%%%%% tar% = 162 & cl% = 165 & al% = 152 applyprim sees: ~ POPBACK pos : 84 rett in: 151 op 92 Remove from stack: 18 F [ 0 ] 150 %%%%%%%%%%% tar% = 145 & cl% = 148 & al% = 135 applyprim sees: ~ POPBACK pos : 84 rett in: 134 op 92 Remove from stack: 18 F [ 0 ] 133 %%%%%%%%%%% tar% = 128 & cl% = 131 & al% = 118 applyprim sees: ~ POPBACK pos : 84 rett in: 117 op 92 Remove from stack: 18 F [ 0 ] 116 %%%%%%%%%%% tar% = 111 & cl% = 114 & al% = 101 applyprim sees: ~ POPBACK pos : 84 rett in: 100 op 92 Remove from stack: 18 F [ 0 ] 99 %%%%%%%%%%% tar% = 94 & cl% = 97 & al% = 84 applyprim sees: ~ POPBACK pos : 84 rett in: 83 op 92 Remove from stack: 18 F [ 0 ] 82 %%%%%%%%%%% tar% = 77 & cl% = 80 & al% = 67 applyprim sees: ~ POPBACK pos : 84 rett in: 66 op 91 Remove from stack: 18 F [ 0 ] 65 %%%%%%%%%%% tar% = 62 & cl% = 63 & al% = 54 applyprim sees: (or (contains? (operator #1 ) (lops ) ) (contains? (operator #1 ) (pops ) ) ) ) )~ setenvop H [ 54 ] 66 %%%%%%%%%%% H [ 63 ] 67 %%%%%%%%%%% G [ 12 ] 68 %%%%%%%%%%% applyprim sees: (contains? (operator #1 ) (lops ) ) (contains? (operator #1 ) (pops ) ) ) ) )~ setenvop K [ 162 ] 69 %%%%%%%%%%% J [ 80 ] 70 %%%%%%%%%%% H [ 54 ] 71 %%%%%%%%%%% H [ 67 ] 72 %%%%%%%%%%% G [ 92 ] 73 %%%%%%%%%%% applyprim sees: (operator #1 ) (lops ) ) (contains? (operator #1 ) (pops ) ) ) ) )~ setenvop K [ 162 ] 74 %%%%%%%%%%% J [ 80 ] 75 %%%%%%%%%%% H [ 54 ] 76 %%%%%%%%%%% H [ 72 ] 77 %%%%%%%%%%% G [ 80 ] 78 %%%%%%%%%%% applyprim sees: #1 ) (lops ) ) (contains? (operator #1 ) (pops ) ) ) ) )~ E [ 21474836484 ] 79 %%%%%%%%%%% applyprim sees: ) (lops ) ) (contains? (operator #1 ) (pops ) ) ) ) )~ apply J [ 110 ] 75 %%%%%%%%%%% ret push of 110 at 75 & len push of 162 applyuserfunc applyprim sees: (car #1 )~ setenvop H [ 76 ] 80 %%%%%%%%%%% H [ 77 ] 81 %%%%%%%%%%% G [ 16 ] 82 %%%%%%%%%%% applyprim sees: #1 )~ E [ 21474836484 ] 83 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 1 ] 80 %%%%%%%%%%% tar% = 74 & cl% = 77 & [al] = 76 applyprim sees: ~ POPBACK pos : 9 rett in: 75 op 91 Remove from stack: 7 C [ 1 ] 74 %%%%%%%%%%% tar% = 69 & cl% = 72 & al% = 54 applyprim sees: (lops ) ) (contains? (operator #1 ) (pops ) ) ) ) )~ setenvop K [ 162 ] 75 %%%%%%%%%%% J [ 110 ] 76 %%%%%%%%%%% H [ 54 ] 77 %%%%%%%%%%% H [ 72 ] 78 %%%%%%%%%%% G [ 89 ] 79 %%%%%%%%%%% applyprim sees: ) ) (contains? (operator #1 ) (pops ) ) ) ) )~ apply J [ 118 ] 76 %%%%%%%%%%% ret push of 118 at 76 & len push of 162 applyuserfunc applyprim sees: '(car cdr cons append length list null?)~ applyprim sees: ~ POPBACK pos : 40 rett in: 76 op 91 Remove from stack: 6 E [ 167503724582 ] 75 %%%%%%%%%%% tar% = 69 & cl% = 72 & al% = 54 applyprim sees: ) (contains? (operator #1 ) (pops ) ) ) ) )~ apply J [ 120 ] 70 %%%%%%%%%%% ret push of 120 at 70 & len push of 162 applyuserfunc applyprim sees: (@ (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop K [ 89 ] 76 %%%%%%%%%%% J [ 0 ] 77 %%%%%%%%%%% H [ 71 ] 78 %%%%%%%%%%% H [ 72 ] 79 %%%%%%%%%%% G [ 14 ] 80 %%%%%%%%%%% applyprim sees: (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop H [ 71 ] 81 %%%%%%%%%%% H [ 79 ] 82 %%%%%%%%%%% G [ 18 ] 83 %%%%%%%%%%% applyprim sees: #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ E [ 167503724582 ] 84 %%%%%%%%%%% applyprim sees: ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 0 ] 81 %%%%%%%%%%% tar% = 76 & cl% = 79 & [al] = 71 applyprim sees: @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ evalif Remove from stack: 1 F K [ 87 ] 76 %%%%%%%%%%% J [ 87 ] 77 %%%%%%%%%%% store ret/len of: 87 in : 77 applyprim sees: (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop K [ 87 ] 81 %%%%%%%%%%% J [ 26 ] 82 %%%%%%%%%%% H [ 71 ] 83 %%%%%%%%%%% H [ 79 ] 84 %%%%%%%%%%% G [ 14 ] 85 %%%%%%%%%%% applyprim sees: (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 71 ] 86 %%%%%%%%%%% H [ 84 ] 87 %%%%%%%%%%% G [ 24 ] 88 %%%%%%%%%%% applyprim sees: #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ C [ 1 ] 89 %%%%%%%%%%% applyprim sees: (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 71 ] 90 %%%%%%%%%%% H [ 87 ] 91 %%%%%%%%%%% G [ 16 ] 92 %%%%%%%%%%% applyprim sees: #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ E [ 167503724582 ] 93 %%%%%%%%%%% applyprim sees: ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 23 ] 90 %%%%%%%%%%% tar% = 86 & cl% = 87 & [al] = 71 applyprim sees: ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 0 ] 86 %%%%%%%%%%% tar% = 81 & cl% = 84 & [al] = 71 applyprim sees: @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ evalif Remove from stack: 1 F K [ 85 ] 81 %%%%%%%%%%% J [ 85 ] 82 %%%%%%%%%%% store ret/len of: 85 in : 82 applyprim sees: (contains? #1 (cdr #2 ) )~ setenvop K [ 85 ] 86 %%%%%%%%%%% J [ 59 ] 87 %%%%%%%%%%% H [ 71 ] 88 %%%%%%%%%%% H [ 84 ] 89 %%%%%%%%%%% G [ 92 ] 90 %%%%%%%%%%% applyprim sees: #1 (cdr #2 ) )~ C [ 1 ] 91 %%%%%%%%%%% applyprim sees: (cdr #2 ) )~ setenvop H [ 71 ] 92 %%%%%%%%%%% H [ 89 ] 93 %%%%%%%%%%% G [ 17 ] 94 %%%%%%%%%%% applyprim sees: #2 ) )~ E [ 167503724582 ] 95 %%%%%%%%%%% applyprim sees: ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 E [ 158913789988 ] 92 %%%%%%%%%%% tar% = 86 & cl% = 89 & [al] = 71 applyprim sees: )~ apply J [ 84 ] 87 %%%%%%%%%%% ret push of 84 at 87 & len push of 85 applyuserfunc applyprim sees: (@ (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop K [ 89 ] 93 %%%%%%%%%%% J [ 0 ] 94 %%%%%%%%%%% H [ 88 ] 95 %%%%%%%%%%% H [ 89 ] 96 %%%%%%%%%%% G [ 14 ] 97 %%%%%%%%%%% applyprim sees: (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop H [ 88 ] 98 %%%%%%%%%%% H [ 96 ] 99 %%%%%%%%%%% G [ 18 ] 100 %%%%%%%%%%% applyprim sees: #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ E [ 158913789988 ] 101 %%%%%%%%%%% applyprim sees: ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 0 ] 98 %%%%%%%%%%% tar% = 93 & cl% = 96 & [al] = 88 applyprim sees: @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ evalif Remove from stack: 1 F K [ 87 ] 93 %%%%%%%%%%% J [ 87 ] 94 %%%%%%%%%%% store ret/len of: 87 in : 94 applyprim sees: (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop K [ 87 ] 98 %%%%%%%%%%% J [ 26 ] 99 %%%%%%%%%%% H [ 88 ] 100 %%%%%%%%%%% H [ 96 ] 101 %%%%%%%%%%% G [ 14 ] 102 %%%%%%%%%%% applyprim sees: (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 88 ] 103 %%%%%%%%%%% H [ 101 ] 104 %%%%%%%%%%% G [ 24 ] 105 %%%%%%%%%%% applyprim sees: #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ C [ 1 ] 106 %%%%%%%%%%% applyprim sees: (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 88 ] 107 %%%%%%%%%%% H [ 104 ] 108 %%%%%%%%%%% G [ 16 ] 109 %%%%%%%%%%% applyprim sees: #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ E [ 158913789988 ] 110 %%%%%%%%%%% applyprim sees: ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 22 ] 107 %%%%%%%%%%% tar% = 103 & cl% = 104 & [al] = 88 applyprim sees: ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 0 ] 103 %%%%%%%%%%% tar% = 98 & cl% = 101 & [al] = 88 applyprim sees: @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ evalif Remove from stack: 1 F K [ 85 ] 98 %%%%%%%%%%% J [ 85 ] 99 %%%%%%%%%%% store ret/len of: 85 in : 99 applyprim sees: (contains? #1 (cdr #2 ) )~ setenvop K [ 85 ] 103 %%%%%%%%%%% J [ 59 ] 104 %%%%%%%%%%% H [ 88 ] 105 %%%%%%%%%%% H [ 101 ] 106 %%%%%%%%%%% G [ 92 ] 107 %%%%%%%%%%% applyprim sees: #1 (cdr #2 ) )~ C [ 1 ] 108 %%%%%%%%%%% applyprim sees: (cdr #2 ) )~ setenvop H [ 88 ] 109 %%%%%%%%%%% H [ 106 ] 110 %%%%%%%%%%% G [ 17 ] 111 %%%%%%%%%%% applyprim sees: #2 ) )~ E