applyprim sees: (eval '(+ 3 4) '()) setenvop K [ 19 ] 0 %%%%%%%%%%% J [ 0 ] 1 %%%%%%%%%%% H [ -1 ] 2 %%%%%%%%%%% H [ -1 ] 3 %%%%%%%%%%% G [ 103 ] 4 %%%%%%%%%%% applyprim sees: '(+ 3 4) '()) applyprim sees: '()) B [ 0 ] 6 %%%%%%%%%%% applyprim sees: ) apply J [ 19 ] 1 %%%%%%%%%%% ret push of 19 at 1 & len push of 19 applyuserfunc applyprim sees: (@ (self-evaluating? #1 ) @ #1 (@ (variable? #1 ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) ) ) )~ setenvop K [ 464 ] 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 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) ) ) )~ setenvop K [ 464 ] 12 %%%%%%%%%%% J [ 0 ] 13 %%%%%%%%%%% H [ 2 ] 14 %%%%%%%%%%% H [ 10 ] 15 %%%%%%%%%%% G [ 47 ] 16 %%%%%%%%%%% applyprim sees: #1 ) @ #1 (@ (variable? #1 ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) ) ) )~ E [ 21474836484 ] 17 %%%%%%%%%%% applyprim sees: ) @ #1 (@ (variable? #1 ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) ) ) )~ apply J [ 26 ] 13 %%%%%%%%%%% ret push of 26 at 13 & len push of 464 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 103 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 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) ) ) )~ evalif Remove from stack: 1 F K [ 462 ] 7 %%%%%%%%%%% J [ 462 ] 8 %%%%%%%%%%% store ret/len of: 462 in : 8 applyprim sees: (@ (variable? #1 ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) ) )~ setenvop K [ 462 ] 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 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) ) )~ setenvop K [ 462 ] 17 %%%%%%%%%%% J [ 31 ] 18 %%%%%%%%%%% H [ 2 ] 19 %%%%%%%%%%% H [ 15 ] 20 %%%%%%%%%%% G [ 48 ] 21 %%%%%%%%%%% applyprim sees: #1 ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) ) )~ E [ 21474836484 ] 22 %%%%%%%%%%% applyprim sees: ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) ) )~ apply J [ 50 ] 18 %%%%%%%%%%% ret push of 50 at 18 & len push of 462 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 103 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 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) ) )~ evalif Remove from stack: 1 F K [ 460 ] 12 %%%%%%%%%%% J [ 460 ] 13 %%%%%%%%%%% store ret/len of: 460 in : 13 applyprim sees: (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) )~ setenvop K [ 460 ] 17 %%%%%%%%%%% J [ 75 ] 18 %%%%%%%%%%% H [ 2 ] 19 %%%%%%%%%%% H [ 15 ] 20 %%%%%%%%%%% G [ 14 ] 21 %%%%%%%%%%% applyprim sees: (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) )~ setenvop K [ 460 ] 22 %%%%%%%%%%% J [ 75 ] 23 %%%%%%%%%%% H [ 2 ] 24 %%%%%%%%%%% H [ 20 ] 25 %%%%%%%%%%% G [ 50 ] 26 %%%%%%%%%%% applyprim sees: #1 ) @ (eval-quotation #1 #2 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) )~ E [ 21474836484 ] 27 %%%%%%%%%%% applyprim sees: ) @ (eval-quotation #1 #2 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) )~ apply J [ 92 ] 23 %%%%%%%%%%% ret push of 92 at 23 & len push of 460 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 103 Remove from stack: 12 F [ 0 ] 22 %%%%%%%%%%% tar% = 17 & cl% = 20 & al% = 2 applyprim sees: @ (eval-quotation #1 #2 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) )~ evalif Remove from stack: 1 F K [ 458 ] 17 %%%%%%%%%%% J [ 458 ] 18 %%%%%%%%%%% store ret/len of: 458 in : 18 applyprim sees: (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) )~ setenvop K [ 458 ] 22 %%%%%%%%%%% J [ 118 ] 23 %%%%%%%%%%% H [ 2 ] 24 %%%%%%%%%%% H [ 20 ] 25 %%%%%%%%%%% G [ 14 ] 26 %%%%%%%%%%% applyprim sees: (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) )~ setenvop K [ 458 ] 27 %%%%%%%%%%% J [ 118 ] 28 %%%%%%%%%%% H [ 2 ] 29 %%%%%%%%%%% H [ 25 ] 30 %%%%%%%%%%% G [ 52 ] 31 %%%%%%%%%%% applyprim sees: #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) )~ E [ 21474836484 ] 32 %%%%%%%%%%% applyprim sees: ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) )~ apply J [ 139 ] 28 %%%%%%%%%%% ret push of 139 at 28 & len push of 458 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 103 Remove from stack: 12 F [ 0 ] 27 %%%%%%%%%%% tar% = 22 & cl% = 25 & al% = 2 applyprim sees: @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) )~ evalif Remove from stack: 1 F K [ 456 ] 22 %%%%%%%%%%% J [ 456 ] 23 %%%%%%%%%%% store ret/len of: 456 in : 23 applyprim sees: (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) )~ setenvop K [ 456 ] 27 %%%%%%%%%%% J [ 166 ] 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 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) )~ setenvop K [ 456 ] 32 %%%%%%%%%%% J [ 166 ] 33 %%%%%%%%%%% H [ 2 ] 34 %%%%%%%%%%% H [ 30 ] 35 %%%%%%%%%%% G [ 57 ] 36 %%%%%%%%%%% applyprim sees: #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) )~ E [ 21474836484 ] 37 %%%%%%%%%%% applyprim sees: ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) )~ apply J [ 179 ] 33 %%%%%%%%%%% ret push of 179 at 33 & len push of 456 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 103 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 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) )~ evalif Remove from stack: 1 F K [ 454 ] 27 %%%%%%%%%%% J [ 454 ] 28 %%%%%%%%%%% store ret/len of: 454 in : 28 applyprim sees: (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) )~ setenvop K [ 454 ] 32 %%%%%%%%%%% J [ 198 ] 33 %%%%%%%%%%% H [ 2 ] 34 %%%%%%%%%%% H [ 30 ] 35 %%%%%%%%%%% G [ 14 ] 36 %%%%%%%%%%% applyprim sees: (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) )~ setenvop K [ 454 ] 37 %%%%%%%%%%% J [ 198 ] 38 %%%%%%%%%%% H [ 2 ] 39 %%%%%%%%%%% H [ 35 ] 40 %%%%%%%%%%% G [ 95 ] 41 %%%%%%%%%%% applyprim sees: #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) )~ E [ 21474836484 ] 42 %%%%%%%%%%% applyprim sees: ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) )~ apply J [ 215 ] 38 %%%%%%%%%%% ret push of 215 at 38 & len push of 454 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 103 Remove from stack: 12 F [ 0 ] 37 %%%%%%%%%%% tar% = 32 & cl% = 35 & al% = 2 applyprim sees: @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) )~ evalif Remove from stack: 1 F K [ 452 ] 32 %%%%%%%%%%% J [ 452 ] 33 %%%%%%%%%%% store ret/len of: 452 in : 33 applyprim sees: (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) )~ setenvop K [ 452 ] 37 %%%%%%%%%%% J [ 280 ] 38 %%%%%%%%%%% H [ 2 ] 39 %%%%%%%%%%% H [ 35 ] 40 %%%%%%%%%%% G [ 14 ] 41 %%%%%%%%%%% applyprim sees: (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) )~ setenvop K [ 452 ] 42 %%%%%%%%%%% J [ 280 ] 43 %%%%%%%%%%% H [ 2 ] 44 %%%%%%%%%%% H [ 40 ] 45 %%%%%%%%%%% G [ 71 ] 46 %%%%%%%%%%% applyprim sees: #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) )~ E [ 21474836484 ] 47 %%%%%%%%%%% applyprim sees: ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) )~ apply J [ 296 ] 43 %%%%%%%%%%% ret push of 296 at 43 & len push of 452 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 103 Remove from stack: 12 F [ 0 ] 42 %%%%%%%%%%% tar% = 37 & cl% = 40 & al% = 2 applyprim sees: @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) )~ evalif Remove from stack: 1 F K [ 450 ] 37 %%%%%%%%%%% J [ 450 ] 38 %%%%%%%%%%% store ret/len of: 450 in : 38 applyprim sees: (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) )~ setenvop K [ 450 ] 42 %%%%%%%%%%% J [ 338 ] 43 %%%%%%%%%%% H [ 2 ] 44 %%%%%%%%%%% H [ 40 ] 45 %%%%%%%%%%% G [ 14 ] 46 %%%%%%%%%%% applyprim sees: (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) )~ setenvop K [ 450 ] 47 %%%%%%%%%%% J [ 338 ] 48 %%%%%%%%%%% H [ 2 ] 49 %%%%%%%%%%% H [ 45 ] 50 %%%%%%%%%%% G [ 88 ] 51 %%%%%%%%%%% applyprim sees: #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) )~ E [ 21474836484 ] 52 %%%%%%%%%%% applyprim sees: ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) )~ apply J [ 358 ] 48 %%%%%%%%%%% ret push of 358 at 48 & len push of 450 applyuserfunc applyprim sees: (contains? (operator #1 ) (primitive-procedures ) )~ setenvop K [ 52 ] 53 %%%%%%%%%%% J [ 0 ] 54 %%%%%%%%%%% H [ 49 ] 55 %%%%%%%%%%% H [ 50 ] 56 %%%%%%%%%%% G [ 89 ] 57 %%%%%%%%%%% applyprim sees: (operator #1 ) (primitive-procedures ) )~ setenvop K [ 52 ] 58 %%%%%%%%%%% J [ 0 ] 59 %%%%%%%%%%% H [ 49 ] 60 %%%%%%%%%%% H [ 56 ] 61 %%%%%%%%%%% G [ 79 ] 62 %%%%%%%%%%% applyprim sees: #1 ) (primitive-procedures ) )~ E [ 21474836484 ] 63 %%%%%%%%%%% applyprim sees: ) (primitive-procedures ) )~ apply J [ 26 ] 59 %%%%%%%%%%% ret push of 26 at 59 & len push of 52 applyuserfunc applyprim sees: (car #1 )~ setenvop H [ 60 ] 64 %%%%%%%%%%% H [ 61 ] 65 %%%%%%%%%%% G [ 16 ] 66 %%%%%%%%%%% applyprim sees: #1 )~ E [ 21474836484 ] 67 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 1 ] 64 %%%%%%%%%%% tar% = 58 & cl% = 61 & [al] = 60 applyprim sees: ~ POPBACK pos : 9 rett in: 59 op 88 Remove from stack: 7 C [ 1 ] 58 %%%%%%%%%%% tar% = 53 & cl% = 56 & al% = 49 applyprim sees: (primitive-procedures ) )~ setenvop K [ 52 ] 59 %%%%%%%%%%% J [ 26 ] 60 %%%%%%%%%%% H [ 49 ] 61 %%%%%%%%%%% H [ 56 ] 62 %%%%%%%%%%% G [ 87 ] 63 %%%%%%%%%%% applyprim sees: ) )~ apply J [ 50 ] 60 %%%%%%%%%%% ret push of 50 at 60 & len push of 52 applyuserfunc applyprim sees: '(eq? = + - * /)~ applyprim sees: ~ POPBACK pos : 16 rett in: 60 op 88 Remove from stack: 6 E [ 73014444048 ] 59 %%%%%%%%%%% tar% = 53 & cl% = 56 & al% = 49 applyprim sees: )~ apply J [ 51 ] 54 %%%%%%%%%%% ret push of 51 at 54 & len push of 52 applyuserfunc applyprim sees: (@ (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop K [ 89 ] 60 %%%%%%%%%%% J [ 0 ] 61 %%%%%%%%%%% H [ 55 ] 62 %%%%%%%%%%% H [ 56 ] 63 %%%%%%%%%%% G [ 14 ] 64 %%%%%%%%%%% applyprim sees: (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop H [ 55 ] 65 %%%%%%%%%%% H [ 63 ] 66 %%%%%%%%%%% G [ 18 ] 67 %%%%%%%%%%% applyprim sees: #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ E [ 73014444048 ] 68 %%%%%%%%%%% applyprim sees: ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 0 ] 65 %%%%%%%%%%% tar% = 60 & cl% = 63 & [al] = 55 applyprim sees: @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ evalif Remove from stack: 1 F K [ 87 ] 60 %%%%%%%%%%% J [ 87 ] 61 %%%%%%%%%%% store ret/len of: 87 in : 61 applyprim sees: (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop K [ 87 ] 65 %%%%%%%%%%% J [ 26 ] 66 %%%%%%%%%%% H [ 55 ] 67 %%%%%%%%%%% H [ 63 ] 68 %%%%%%%%%%% G [ 14 ] 69 %%%%%%%%%%% applyprim sees: (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 55 ] 70 %%%%%%%%%%% H [ 68 ] 71 %%%%%%%%%%% G [ 24 ] 72 %%%%%%%%%%% applyprim sees: #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ C [ 1 ] 73 %%%%%%%%%%% applyprim sees: (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 55 ] 74 %%%%%%%%%%% H [ 71 ] 75 %%%%%%%%%%% G [ 16 ] 76 %%%%%%%%%%% applyprim sees: #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ E [ 73014444048 ] 77 %%%%%%%%%%% applyprim sees: ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 11 ] 74 %%%%%%%%%%% tar% = 70 & cl% = 71 & [al] = 55 applyprim sees: ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 0 ] 70 %%%%%%%%%%% tar% = 65 & cl% = 68 & [al] = 55 applyprim sees: @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ evalif Remove from stack: 1 F K [ 85 ] 65 %%%%%%%%%%% J [ 85 ] 66 %%%%%%%%%%% store ret/len of: 85 in : 66 applyprim sees: (contains? #1 (cdr #2 ) )~ setenvop K [ 85 ] 70 %%%%%%%%%%% J [ 59 ] 71 %%%%%%%%%%% H [ 55 ] 72 %%%%%%%%%%% H [ 68 ] 73 %%%%%%%%%%% G [ 89 ] 74 %%%%%%%%%%% applyprim sees: #1 (cdr #2 ) )~ C [ 1 ] 75 %%%%%%%%%%% applyprim sees: (cdr #2 ) )~ setenvop H [ 55 ] 76 %%%%%%%%%%% H [ 73 ] 77 %%%%%%%%%%% G [ 17 ] 78 %%%%%%%%%%% applyprim sees: #2 ) )~ E [ 73014444048 ] 79 %%%%%%%%%%% applyprim sees: ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 E [ 64424509454 ] 76 %%%%%%%%%%% tar% = 70 & cl% = 73 & [al] = 55 applyprim sees: )~ apply J [ 84 ] 71 %%%%%%%%%%% ret push of 84 at 71 & len push of 85 applyuserfunc applyprim sees: (@ (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop K [ 89 ] 77 %%%%%%%%%%% J [ 0 ] 78 %%%%%%%%%%% H [ 72 ] 79 %%%%%%%%%%% H [ 73 ] 80 %%%%%%%%%%% G [ 14 ] 81 %%%%%%%%%%% applyprim sees: (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop H [ 72 ] 82 %%%%%%%%%%% H [ 80 ] 83 %%%%%%%%%%% G [ 18 ] 84 %%%%%%%%%%% applyprim sees: #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ E [ 64424509454 ] 85 %%%%%%%%%%% applyprim sees: ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 0 ] 82 %%%%%%%%%%% tar% = 77 & cl% = 80 & [al] = 72 applyprim sees: @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ evalif Remove from stack: 1 F K [ 87 ] 77 %%%%%%%%%%% J [ 87 ] 78 %%%%%%%%%%% store ret/len of: 87 in : 78 applyprim sees: (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop K [ 87 ] 82 %%%%%%%%%%% J [ 26 ] 83 %%%%%%%%%%% H [ 72 ] 84 %%%%%%%%%%% H [ 80 ] 85 %%%%%%%%%%% G [ 14 ] 86 %%%%%%%%%%% applyprim sees: (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 72 ] 87 %%%%%%%%%%% H [ 85 ] 88 %%%%%%%%%%% G [ 24 ] 89 %%%%%%%%%%% applyprim sees: #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ C [ 1 ] 90 %%%%%%%%%%% applyprim sees: (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 72 ] 91 %%%%%%%%%%% H [ 88 ] 92 %%%%%%%%%%% G [ 16 ] 93 %%%%%%%%%%% applyprim sees: #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ E [ 64424509454 ] 94 %%%%%%%%%%% applyprim sees: ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 10 ] 91 %%%%%%%%%%% tar% = 87 & cl% = 88 & [al] = 72 applyprim sees: ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 0 ] 87 %%%%%%%%%%% tar% = 82 & cl% = 85 & [al] = 72 applyprim sees: @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ evalif Remove from stack: 1 F K [ 85 ] 82 %%%%%%%%%%% J [ 85 ] 83 %%%%%%%%%%% store ret/len of: 85 in : 83 applyprim sees: (contains? #1 (cdr #2 ) )~ setenvop K [ 85 ] 87 %%%%%%%%%%% J [ 59 ] 88 %%%%%%%%%%% H [ 72 ] 89 %%%%%%%%%%% H [ 85 ] 90 %%%%%%%%%%% G [ 89 ] 91 %%%%%%%%%%% applyprim sees: #1 (cdr #2 ) )~ C [ 1 ] 92 %%%%%%%%%%% applyprim sees: (cdr #2 ) )~ setenvop H [ 72 ] 93 %%%%%%%%%%% H [ 90 ] 94 %%%%%%%%%%% G [ 17 ] 95 %%%%%%%%%%% applyprim sees: #2 ) )~ E [ 64424509454 ] 96 %%%%%%%%%%% applyprim sees: ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 E [ 55834574860 ] 93 %%%%%%%%%%% tar% = 87 & cl% = 90 & [al] = 72 applyprim sees: )~ apply J [ 84 ] 88 %%%%%%%%%%% ret push of 84 at 88 & len push of 85 applyuserfunc applyprim sees: (@ (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop K [ 89 ] 94 %%%%%%%%%%% J [ 0 ] 95 %%%%%%%%%%% H [ 89 ] 96 %%%%%%%%%%% H [ 90 ] 97 %%%%%%%%%%% G [ 14 ] 98 %%%%%%%%%%% applyprim sees: (null? #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ setenvop H [ 89 ] 99 %%%%%%%%%%% H [ 97 ] 100 %%%%%%%%%%% G [ 18 ] 101 %%%%%%%%%%% applyprim sees: #2 ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ E [ 55834574860 ] 102 %%%%%%%%%%% applyprim sees: ) @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 0 ] 99 %%%%%%%%%%% tar% = 94 & cl% = 97 & [al] = 89 applyprim sees: @ (FALSE ) (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) ) )~ evalif Remove from stack: 1 F K [ 87 ] 94 %%%%%%%%%%% J [ 87 ] 95 %%%%%%%%%%% store ret/len of: 87 in : 95 applyprim sees: (@ (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop K [ 87 ] 99 %%%%%%%%%%% J [ 26 ] 100 %%%%%%%%%%% H [ 89 ] 101 %%%%%%%%%%% H [ 97 ] 102 %%%%%%%%%%% G [ 14 ] 103 %%%%%%%%%%% applyprim sees: (eq? #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 89 ] 104 %%%%%%%%%%% H [ 102 ] 105 %%%%%%%%%%% G [ 24 ] 106 %%%%%%%%%%% applyprim sees: #1 (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ C [ 1 ] 107 %%%%%%%%%%% applyprim sees: (car #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ setenvop H [ 89 ] 108 %%%%%%%%%%% H [ 105 ] 109 %%%%%%%%%%% G [ 16 ] 110 %%%%%%%%%%% applyprim sees: #2 ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ E [ 55834574860 ] 111 %%%%%%%%%%% applyprim sees: ) ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 1 ] 108 %%%%%%%%%%% tar% = 104 & cl% = 105 & [al] = 89 applyprim sees: ) @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 1 ] 104 %%%%%%%%%%% tar% = 99 & cl% = 102 & [al] = 89 applyprim sees: @ (TRUE ) (contains? #1 (cdr #2 ) ) )~ evalif Remove from stack: 1 T store ret of: 51 in : 100 & len: J [ 86 ] 100 %%%%%%%%%%% K [ 87 ] 99 %%%%%%%%%%% 59 applyprim sees: (TRUE )~ setenvop K [ 59 ] 104 %%%%%%%%%%% J [ 51 ] 105 %%%%%%%%%%% H [ 89 ] 106 %%%%%%%%%%% H [ 102 ] 107 %%%%%%%%%%% G [ 27 ] 108 %%%%%%%%%%% applyprim sees: )~ apply J [ 58 ] 105 %%%%%%%%%%% ret push of 58 at 105 & len push of 59 applyuserfunc applyprim sees: (= 1 1 )~ setenvop H [ 106 ] 109 %%%%%%%%%%% H [ 107 ] 110 %%%%%%%%%%% G [ 5 ] 111 %%%%%%%%%%% applyprim sees: 1 1 )~ applyprim sees: 1 )~ applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 1 ] 109 %%%%%%%%%%% tar% = 104 & cl% = 107 & [al] = 106 applyprim sees: ~ POPBACK pos : 8 rett in: 105 op 89 Remove from stack: 6 F [ 1 ] 104 %%%%%%%%%%% tar% = 99 & cl% = 102 & al% = 89 applyprim sees: ~ POPBACK pos : 58 rett in: 88 op 89 Remove from stack: 18 F [ 1 ] 87 %%%%%%%%%%% tar% = 82 & cl% = 85 & al% = 72 applyprim sees: ~ POPBACK pos : 84 rett in: 71 op 89 Remove from stack: 18 F [ 1 ] 70 %%%%%%%%%%% tar% = 65 & cl% = 68 & al% = 55 applyprim sees: ~ POPBACK pos : 84 rett in: 54 op 88 Remove from stack: 18 F [ 1 ] 53 %%%%%%%%%%% tar% = 47 & cl% = 50 & al% = 49 applyprim sees: ~ POPBACK pos : 51 rett in: 48 op 103 Remove from stack: 7 F [ 1 ] 47 %%%%%%%%%%% tar% = 42 & cl% = 45 & al% = 2 applyprim sees: @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) )~ evalif Remove from stack: 1 T store ret of: 360 in : 43 & len: J [ 449 ] 43 %%%%%%%%%%% K [ 450 ] 42 %%%%%%%%%%% 384 applyprim sees: (eval-primitive #1 #2 )~ setenvop K [ 384 ] 47 %%%%%%%%%%% J [ 360 ] 48 %%%%%%%%%%% H [ 2 ] 49 %%%%%%%%%%% H [ 45 ] 50 %%%%%%%%%%% G [ 90 ] 51 %%%%%%%%%%% applyprim sees: #1 #2 )~ E [ 21474836484 ] 52 %%%%%%%%%%% applyprim sees: #2 )~ B [ 0 ] 53 %%%%%%%%%%% applyprim sees: )~ apply J [ 383 ] 48 %%%%%%%%%%% ret push of 383 at 48 & len push of 384 applyuserfunc applyprim sees: (@ (eq? (operator #1 ) 'eq? ) @ (prim-proc-eq (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '* ) @ (prim-proc-mul (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '+ ) @ (prim-proc-add (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '- ) @ (prim-proc-sub (eval-rands (operands #1 ) #2 ) ) (error #1 ) ) ) ) )~ setenvop K [ 337 ] 54 %%%%%%%%%%% J [ 0 ] 55 %%%%%%%%%%% H [ 49 ] 56 %%%%%%%%%%% H [ 50 ] 57 %%%%%%%%%%% G [ 14 ] 58 %%%%%%%%%%% applyprim sees: (eq? (operator #1 ) 'eq? ) @ (prim-proc-eq (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '* ) @ (prim-proc-mul (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '+ ) @ (prim-proc-add (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '- ) @ (prim-proc-sub (eval-rands (operands #1 ) #2 ) ) (error #1 ) ) ) ) )~ setenvop H [ 49 ] 59 %%%%%%%%%%% H [ 57 ] 60 %%%%%%%%%%% G [ 24 ] 61 %%%%%%%%%%% applyprim sees: (operator #1 ) 'eq? ) @ (prim-proc-eq (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '* ) @ (prim-proc-mul (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '+ ) @ (prim-proc-add (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '- ) @ (prim-proc-sub (eval-rands (operands #1 ) #2 ) ) (error #1 ) ) ) ) )~ setenvop K [ 337 ] 62 %%%%%%%%%%% J [ 0 ] 63 %%%%%%%%%%% H [ 49 ] 64 %%%%%%%%%%% H [ 60 ] 65 %%%%%%%%%%% G [ 79 ] 66 %%%%%%%%%%% applyprim sees: #1 ) 'eq? ) @ (prim-proc-eq (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '* ) @ (prim-proc-mul (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '+ ) @ (prim-proc-add (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '- ) @ (prim-proc-sub (eval-rands (operands #1 ) #2 ) ) (error #1 ) ) ) ) )~ E [ 21474836484 ] 67 %%%%%%%%%%% applyprim sees: ) 'eq? ) @ (prim-proc-eq (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '* ) @ (prim-proc-mul (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '+ ) @ (prim-proc-add (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '- ) @ (prim-proc-sub (eval-rands (operands #1 ) #2 ) ) (error #1 ) ) ) ) )~ apply J [ 23 ] 63 %%%%%%%%%%% ret push of 23 at 63 & len push of 337 applyuserfunc applyprim sees: (car #1 )~ setenvop H [ 64 ] 68 %%%%%%%%%%% H [ 65 ] 69 %%%%%%%%%%% G [ 16 ] 70 %%%%%%%%%%% applyprim sees: #1 )~ E [ 21474836484 ] 71 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 1 ] 68 %%%%%%%%%%% tar% = 62 & cl% = 65 & [al] = 64 applyprim sees: ~ POPBACK pos : 9 rett in: 63 op 90 Remove from stack: 7 C [ 1 ] 62 %%%%%%%%%%% tar% = 59 & cl% = 60 & al% = 49 applyprim sees: 'eq? ) @ (prim-proc-eq (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '* ) @ (prim-proc-mul (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '+ ) @ (prim-proc-add (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '- ) @ (prim-proc-sub (eval-rands (operands #1 ) #2 ) ) (error #1 ) ) ) ) )~ C [ 11 ] 63 %%%%%%%%%%% applyprim sees: ) @ (prim-proc-eq (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '* ) @ (prim-proc-mul (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '+ ) @ (prim-proc-add (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '- ) @ (prim-proc-sub (eval-rands (operands #1 ) #2 ) ) (error #1 ) ) ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 0 ] 59 %%%%%%%%%%% tar% = 54 & cl% = 57 & [al] = 49 applyprim sees: @ (prim-proc-eq (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '* ) @ (prim-proc-mul (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '+ ) @ (prim-proc-add (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '- ) @ (prim-proc-sub (eval-rands (operands #1 ) #2 ) ) (error #1 ) ) ) ) )~ evalif Remove from stack: 1 F K [ 335 ] 54 %%%%%%%%%%% J [ 335 ] 55 %%%%%%%%%%% store ret/len of: 335 in : 55 applyprim sees: (@ (eq? (operator #1 ) '* ) @ (prim-proc-mul (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '+ ) @ (prim-proc-add (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '- ) @ (prim-proc-sub (eval-rands (operands #1 ) #2 ) ) (error #1 ) ) ) )~ setenvop K [ 335 ] 59 %%%%%%%%%%% J [ 80 ] 60 %%%%%%%%%%% H [ 49 ] 61 %%%%%%%%%%% H [ 57 ] 62 %%%%%%%%%%% G [ 14 ] 63 %%%%%%%%%%% applyprim sees: (eq? (operator #1 ) '* ) @ (prim-proc-mul (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '+ ) @ (prim-proc-add (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '- ) @ (prim-proc-sub (eval-rands (operands #1 ) #2 ) ) (error #1 ) ) ) )~ setenvop H [ 49 ] 64 %%%%%%%%%%% H [ 62 ] 65 %%%%%%%%%%% G [ 24 ] 66 %%%%%%%%%%% applyprim sees: (operator #1 ) '* ) @ (prim-proc-mul (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '+ ) @ (prim-proc-add (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '- ) @ (prim-proc-sub (eval-rands (operands #1 ) #2 ) ) (error #1 ) ) ) )~ setenvop K [ 335 ] 67 %%%%%%%%%%% J [ 80 ] 68 %%%%%%%%%%% H [ 49 ] 69 %%%%%%%%%%% H [ 65 ] 70 %%%%%%%%%%% G [ 79 ] 71 %%%%%%%%%%% applyprim sees: #1 ) '* ) @ (prim-proc-mul (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '+ ) @ (prim-proc-add (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '- ) @ (prim-proc-sub (eval-rands (operands #1 ) #2 ) ) (error #1 ) ) ) )~ E [ 21474836484 ] 72 %%%%%%%%%%% applyprim sees: ) '* ) @ (prim-proc-mul (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '+ ) @ (prim-proc-add (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '- ) @ (prim-proc-sub (eval-rands (operands #1 ) #2 ) ) (error #1 ) ) ) )~ apply J [ 103 ] 68 %%%%%%%%%%% ret push of 103 at 68 & len push of 335 applyuserfunc applyprim sees: (car #1 )~ setenvop H [ 69 ] 73 %%%%%%%%%%% H [ 70 ] 74 %%%%%%%%%%% G [ 16 ] 75 %%%%%%%%%%% applyprim sees: #1 )~ E [ 21474836484 ] 76 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 1 ] 73 %%%%%%%%%%% tar% = 67 & cl% = 70 & [al] = 69 applyprim sees: ~ POPBACK pos : 9 rett in: 68 op 90 Remove from stack: 7 C [ 1 ] 67 %%%%%%%%%%% tar% = 64 & cl% = 65 & al% = 49 applyprim sees: '* ) @ (prim-proc-mul (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '+ ) @ (prim-proc-add (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '- ) @ (prim-proc-sub (eval-rands (operands #1 ) #2 ) ) (error #1 ) ) ) )~ C [ 8 ] 68 %%%%%%%%%%% applyprim sees: ) @ (prim-proc-mul (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '+ ) @ (prim-proc-add (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '- ) @ (prim-proc-sub (eval-rands (operands #1 ) #2 ) ) (error #1 ) ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 0 ] 64 %%%%%%%%%%% tar% = 59 & cl% = 62 & [al] = 49 applyprim sees: @ (prim-proc-mul (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '+ ) @ (prim-proc-add (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '- ) @ (prim-proc-sub (eval-rands (operands #1 ) #2 ) ) (error #1 ) ) ) )~ evalif Remove from stack: 1 F K [ 333 ] 59 %%%%%%%%%%% J [ 333 ] 60 %%%%%%%%%%% store ret/len of: 333 in : 60 applyprim sees: (@ (eq? (operator #1 ) '+ ) @ (prim-proc-add (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '- ) @ (prim-proc-sub (eval-rands (operands #1 ) #2 ) ) (error #1 ) ) )~ setenvop K [ 333 ] 64 %%%%%%%%%%% J [ 159 ] 65 %%%%%%%%%%% H [ 49 ] 66 %%%%%%%%%%% H [ 62 ] 67 %%%%%%%%%%% G [ 14 ] 68 %%%%%%%%%%% applyprim sees: (eq? (operator #1 ) '+ ) @ (prim-proc-add (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '- ) @ (prim-proc-sub (eval-rands (operands #1 ) #2 ) ) (error #1 ) ) )~ setenvop H [ 49 ] 69 %%%%%%%%%%% H [ 67 ] 70 %%%%%%%%%%% G [ 24 ] 71 %%%%%%%%%%% applyprim sees: (operator #1 ) '+ ) @ (prim-proc-add (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '- ) @ (prim-proc-sub (eval-rands (operands #1 ) #2 ) ) (error #1 ) ) )~ setenvop K [ 333 ] 72 %%%%%%%%%%% J [ 159 ] 73 %%%%%%%%%%% H [ 49 ] 74 %%%%%%%%%%% H [ 70 ] 75 %%%%%%%%%%% G [ 79 ] 76 %%%%%%%%%%% applyprim sees: #1 ) '+ ) @ (prim-proc-add (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '- ) @ (prim-proc-sub (eval-rands (operands #1 ) #2 ) ) (error #1 ) ) )~ E [ 21474836484 ] 77 %%%%%%%%%%% applyprim sees: ) '+ ) @ (prim-proc-add (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '- ) @ (prim-proc-sub (eval-rands (operands #1 ) #2 ) ) (error #1 ) ) )~ apply J [ 182 ] 73 %%%%%%%%%%% ret push of 182 at 73 & len push of 333 applyuserfunc applyprim sees: (car #1 )~ setenvop H [ 74 ] 78 %%%%%%%%%%% H [ 75 ] 79 %%%%%%%%%%% G [ 16 ] 80 %%%%%%%%%%% applyprim sees: #1 )~ E [ 21474836484 ] 81 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 C [ 1 ] 78 %%%%%%%%%%% tar% = 72 & cl% = 75 & [al] = 74 applyprim sees: ~ POPBACK pos : 9 rett in: 73 op 90 Remove from stack: 7 C [ 1 ] 72 %%%%%%%%%%% tar% = 69 & cl% = 70 & al% = 49 applyprim sees: '+ ) @ (prim-proc-add (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '- ) @ (prim-proc-sub (eval-rands (operands #1 ) #2 ) ) (error #1 ) ) )~ C [ 1 ] 73 %%%%%%%%%%% applyprim sees: ) @ (prim-proc-add (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '- ) @ (prim-proc-sub (eval-rands (operands #1 ) #2 ) ) (error #1 ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 F [ 1 ] 69 %%%%%%%%%%% tar% = 64 & cl% = 67 & [al] = 49 applyprim sees: @ (prim-proc-add (eval-rands (operands #1 ) #2 ) ) (@ (eq? (operator #1 ) '- ) @ (prim-proc-sub (eval-rands (operands #1 ) #2 ) ) (error #1 ) ) )~ evalif Remove from stack: 1 T store ret of: 189 in : 65 & len: J [ 332 ] 65 %%%%%%%%%%% K [ 333 ] 64 %%%%%%%%%%% 238 applyprim sees: (prim-proc-add (eval-rands (operands #1 ) #2 ) )~ setenvop K [ 238 ] 69 %%%%%%%%%%% J [ 189 ] 70 %%%%%%%%%%% H [ 49 ] 71 %%%%%%%%%%% H [ 67 ] 72 %%%%%%%%%%% G [ 91 ] 73 %%%%%%%%%%% applyprim sees: (eval-rands (operands #1 ) #2 ) )~ setenvop K [ 238 ] 74 %%%%%%%%%%% J [ 189 ] 75 %%%%%%%%%%% H [ 49 ] 76 %%%%%%%%%%% H [ 72 ] 77 %%%%%%%%%%% G [ 86 ] 78 %%%%%%%%%%% applyprim sees: (operands #1 ) #2 ) )~ setenvop K [ 238 ] 79 %%%%%%%%%%% J [ 189 ] 80 %%%%%%%%%%% H [ 49 ] 81 %%%%%%%%%%% H [ 77 ] 82 %%%%%%%%%%% G [ 80 ] 83 %%%%%%%%%%% applyprim sees: #1 ) #2 ) )~ E [ 21474836484 ] 84 %%%%%%%%%%% applyprim sees: ) #2 ) )~ apply J [ 231 ] 80 %%%%%%%%%%% ret push of 231 at 80 & len push of 238 applyuserfunc applyprim sees: (cdr #1 )~ setenvop H [ 81 ] 85 %%%%%%%%%%% H [ 82 ] 86 %%%%%%%%%%% G [ 17 ] 87 %%%%%%%%%%% applyprim sees: #1 )~ E [ 21474836484 ] 88 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 E [ 12884901890 ] 85 %%%%%%%%%%% tar% = 79 & cl% = 82 & [al] = 81 applyprim sees: ~ POPBACK pos : 9 rett in: 80 op 90 Remove from stack: 7 E [ 12884901890 ] 79 %%%%%%%%%%% tar% = 74 & cl% = 77 & al% = 49 applyprim sees: #2 ) )~ B [ 0 ] 80 %%%%%%%%%%% applyprim sees: ) )~ apply J [ 236 ] 75 %%%%%%%%%%% ret push of 236 at 75 & len push of 238 applyuserfunc applyprim sees: (@ (no-operands? #1 ) @ '() (cons (eval (first-rand #1 ) #2 ) (eval-rands (rest-rands #1 ) #2 ) ) )~ setenvop K [ 100 ] 81 %%%%%%%%%%% J [ 0 ] 82 %%%%%%%%%%% H [ 76 ] 83 %%%%%%%%%%% H [ 77 ] 84 %%%%%%%%%%% G [ 14 ] 85 %%%%%%%%%%% applyprim sees: (no-operands? #1 ) @ '() (cons (eval (first-rand #1 ) #2 ) (eval-rands (rest-rands #1 ) #2 ) ) )~ setenvop K [ 100 ] 86 %%%%%%%%%%% J [ 0 ] 87 %%%%%%%%%%% H [ 76 ] 88 %%%%%%%%%%% H [ 84 ] 89 %%%%%%%%%%% G [ 81 ] 90 %%%%%%%%%%% applyprim sees: #1 ) @ '() (cons (eval (first-rand #1 ) #2 ) (eval-rands (rest-rands #1 ) #2 ) ) )~ E [ 12884901890 ] 91 %%%%%%%%%%% applyprim sees: ) @ '() (cons (eval (first-rand #1 ) #2 ) (eval-rands (rest-rands #1 ) #2 ) ) )~ apply J [ 22 ] 87 %%%%%%%%%%% ret push of 22 at 87 & len push of 100 applyuserfunc applyprim sees: (null? #1 )~ setenvop H [ 88 ] 92 %%%%%%%%%%% H [ 89 ] 93 %%%%%%%%%%% G [ 18 ] 94 %%%%%%%%%%% applyprim sees: #1 )~ E [ 12884901890 ] 95 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 0 ] 92 %%%%%%%%%%% tar% = 86 & cl% = 89 & [al] = 88 applyprim sees: ~ POPBACK pos : 11 rett in: 87 op 86 Remove from stack: 7 F [ 0 ] 86 %%%%%%%%%%% tar% = 81 & cl% = 84 & al% = 76 applyprim sees: @ '() (cons (eval (first-rand #1 ) #2 ) (eval-rands (rest-rands #1 ) #2 ) ) )~ evalif Remove from stack: 1 F K [ 98 ] 81 %%%%%%%%%%% J [ 98 ] 82 %%%%%%%%%%% store ret/len of: 98 in : 82 applyprim sees: (cons (eval (first-rand #1 ) #2 ) (eval-rands (rest-rands #1 ) #2 ) )~ setenvop H [ 76 ] 86 %%%%%%%%%%% H [ 84 ] 87 %%%%%%%%%%% G [ 15 ] 88 %%%%%%%%%%% applyprim sees: (eval (first-rand #1 ) #2 ) (eval-rands (rest-rands #1 ) #2 ) )~ setenvop K [ 98 ] 89 %%%%%%%%%%% J [ 28 ] 90 %%%%%%%%%%% H [ 76 ] 91 %%%%%%%%%%% H [ 87 ] 92 %%%%%%%%%%% G [ 103 ] 93 %%%%%%%%%%% applyprim sees: (first-rand #1 ) #2 ) (eval-rands (rest-rands #1 ) #2 ) )~ setenvop K [ 98 ] 94 %%%%%%%%%%% J [ 28 ] 95 %%%%%%%%%%% H [ 76 ] 96 %%%%%%%%%%% H [ 92 ] 97 %%%%%%%%%%% G [ 82 ] 98 %%%%%%%%%%% applyprim sees: #1 ) #2 ) (eval-rands (rest-rands #1 ) #2 ) )~ E [ 12884901890 ] 99 %%%%%%%%%%% applyprim sees: ) #2 ) (eval-rands (rest-rands #1 ) #2 ) )~ apply J [ 57 ] 95 %%%%%%%%%%% ret push of 57 at 95 & len push of 98 applyuserfunc applyprim sees: (car #1 )~ setenvop H [ 96 ] 100 %%%%%%%%%%% H [ 97 ] 101 %%%%%%%%%%% G [ 16 ] 102 %%%%%%%%%%% applyprim sees: #1 )~ E [ 12884901890 ] 103 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 A [ 3 ] 100 %%%%%%%%%%% tar% = 94 & cl% = 97 & [al] = 96 applyprim sees: ~ POPBACK pos : 9 rett in: 95 op 86 Remove from stack: 7 A [ 3 ] 94 %%%%%%%%%%% tar% = 89 & cl% = 92 & al% = 76 applyprim sees: #2 ) (eval-rands (rest-rands #1 ) #2 ) )~ B [ 0 ] 95 %%%%%%%%%%% applyprim sees: ) (eval-rands (rest-rands #1 ) #2 ) )~ apply J [ 62 ] 90 %%%%%%%%%%% ret push of 62 at 90 & len push of 98 applyuserfunc applyprim sees: (@ (self-evaluating? #1 ) @ #1 (@ (variable? #1 ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) ) ) )~ setenvop K [ 464 ] 96 %%%%%%%%%%% J [ 0 ] 97 %%%%%%%%%%% H [ 91 ] 98 %%%%%%%%%%% H [ 92 ] 99 %%%%%%%%%%% G [ 14 ] 100 %%%%%%%%%%% applyprim sees: (self-evaluating? #1 ) @ #1 (@ (variable? #1 ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) ) ) )~ setenvop K [ 464 ] 101 %%%%%%%%%%% J [ 0 ] 102 %%%%%%%%%%% H [ 91 ] 103 %%%%%%%%%%% H [ 99 ] 104 %%%%%%%%%%% G [ 47 ] 105 %%%%%%%%%%% applyprim sees: #1 ) @ #1 (@ (variable? #1 ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) ) ) )~ A [ 3 ] 106 %%%%%%%%%%% applyprim sees: ) @ #1 (@ (variable? #1 ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) ) ) )~ apply J [ 26 ] 102 %%%%%%%%%%% ret push of 26 at 102 & len push of 464 applyuserfunc applyprim sees: (number? #1 )~ setenvop H [ 103 ] 107 %%%%%%%%%%% H [ 104 ] 108 %%%%%%%%%%% G [ 25 ] 109 %%%%%%%%%%% applyprim sees: #1 )~ A [ 3 ] 110 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 1 ] 107 %%%%%%%%%%% tar% = 101 & cl% = 104 & [al] = 103 applyprim sees: ~ POPBACK pos : 13 rett in: 102 op 103 Remove from stack: 7 F [ 1 ] 101 %%%%%%%%%%% tar% = 96 & cl% = 99 & al% = 91 applyprim sees: @ #1 (@ (variable? #1 ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) ) ) )~ evalif Remove from stack: 1 T store ret of: 28 in : 97 & len: J [ 463 ] 97 %%%%%%%%%%% K [ 464 ] 96 %%%%%%%%%%% 31 applyprim sees: #1~ A [ 3 ] 101 %%%%%%%%%%% applyprim sees: ~ POPBACK pos : 30 rett in: 90 op 86 Remove from stack: 13 A [ 3 ] 89 %%%%%%%%%%% tar% = 86 & cl% = 87 & al% = 76 applyprim sees: (eval-rands (rest-rands #1 ) #2 ) )~ setenvop K [ 98 ] 90 %%%%%%%%%%% J [ 62 ] 91 %%%%%%%%%%% H [ 76 ] 92 %%%%%%%%%%% H [ 87 ] 93 %%%%%%%%%%% G [ 86 ] 94 %%%%%%%%%%% applyprim sees: (rest-rands #1 ) #2 ) )~ setenvop K [ 98 ] 95 %%%%%%%%%%% J [ 62 ] 96 %%%%%%%%%%% H [ 76 ] 97 %%%%%%%%%%% H [ 93 ] 98 %%%%%%%%%%% G [ 84 ] 99 %%%%%%%%%%% applyprim sees: #1 ) #2 ) )~ E [ 12884901890 ] 100 %%%%%%%%%%% applyprim sees: ) #2 ) )~ apply J [ 91 ] 96 %%%%%%%%%%% ret push of 91 at 96 & len push of 98 applyuserfunc applyprim sees: (cdr #1 )~ setenvop H [ 97 ] 101 %%%%%%%%%%% H [ 98 ] 102 %%%%%%%%%%% G [ 17 ] 103 %%%%%%%%%%% applyprim sees: #1 )~ E [ 12884901890 ] 104 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 E [ 4294967296 ] 101 %%%%%%%%%%% tar% = 95 & cl% = 98 & [al] = 97 applyprim sees: ~ POPBACK pos : 9 rett in: 96 op 86 Remove from stack: 7 E [ 4294967296 ] 95 %%%%%%%%%%% tar% = 90 & cl% = 93 & al% = 76 applyprim sees: #2 ) )~ B [ 0 ] 96 %%%%%%%%%%% applyprim sees: ) )~ apply J [ 96 ] 91 %%%%%%%%%%% ret push of 96 at 91 & len push of 98 applyuserfunc applyprim sees: (@ (no-operands? #1 ) @ '() (cons (eval (first-rand #1 ) #2 ) (eval-rands (rest-rands #1 ) #2 ) ) )~ setenvop K [ 100 ] 97 %%%%%%%%%%% J [ 0 ] 98 %%%%%%%%%%% H [ 92 ] 99 %%%%%%%%%%% H [ 93 ] 100 %%%%%%%%%%% G [ 14 ] 101 %%%%%%%%%%% applyprim sees: (no-operands? #1 ) @ '() (cons (eval (first-rand #1 ) #2 ) (eval-rands (rest-rands #1 ) #2 ) ) )~ setenvop K [ 100 ] 102 %%%%%%%%%%% J [ 0 ] 103 %%%%%%%%%%% H [ 92 ] 104 %%%%%%%%%%% H [ 100 ] 105 %%%%%%%%%%% G [ 81 ] 106 %%%%%%%%%%% applyprim sees: #1 ) @ '() (cons (eval (first-rand #1 ) #2 ) (eval-rands (rest-rands #1 ) #2 ) ) )~ E [ 4294967296 ] 107 %%%%%%%%%%% applyprim sees: ) @ '() (cons (eval (first-rand #1 ) #2 ) (eval-rands (rest-rands #1 ) #2 ) ) )~ apply J [ 22 ] 103 %%%%%%%%%%% ret push of 22 at 103 & len push of 100 applyuserfunc applyprim sees: (null? #1 )~ setenvop H [ 104 ] 108 %%%%%%%%%%% H [ 105 ] 109 %%%%%%%%%%% G [ 18 ] 110 %%%%%%%%%%% applyprim sees: #1 )~ E [ 4294967296 ] 111 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 0 ] 108 %%%%%%%%%%% tar% = 102 & cl% = 105 & [al] = 104 applyprim sees: ~ POPBACK pos : 11 rett in: 103 op 86 Remove from stack: 7 F [ 0 ] 102 %%%%%%%%%%% tar% = 97 & cl% = 100 & al% = 92 applyprim sees: @ '() (cons (eval (first-rand #1 ) #2 ) (eval-rands (rest-rands #1 ) #2 ) ) )~ evalif Remove from stack: 1 F K [ 98 ] 97 %%%%%%%%%%% J [ 98 ] 98 %%%%%%%%%%% store ret/len of: 98 in : 98 applyprim sees: (cons (eval (first-rand #1 ) #2 ) (eval-rands (rest-rands #1 ) #2 ) )~ setenvop H [ 92 ] 102 %%%%%%%%%%% H [ 100 ] 103 %%%%%%%%%%% G [ 15 ] 104 %%%%%%%%%%% applyprim sees: (eval (first-rand #1 ) #2 ) (eval-rands (rest-rands #1 ) #2 ) )~ setenvop K [ 98 ] 105 %%%%%%%%%%% J [ 28 ] 106 %%%%%%%%%%% H [ 92 ] 107 %%%%%%%%%%% H [ 103 ] 108 %%%%%%%%%%% G [ 103 ] 109 %%%%%%%%%%% applyprim sees: (first-rand #1 ) #2 ) (eval-rands (rest-rands #1 ) #2 ) )~ setenvop K [ 98 ] 110 %%%%%%%%%%% J [ 28 ] 111 %%%%%%%%%%% H [ 92 ] 112 %%%%%%%%%%% H [ 108 ] 113 %%%%%%%%%%% G [ 82 ] 114 %%%%%%%%%%% applyprim sees: #1 ) #2 ) (eval-rands (rest-rands #1 ) #2 ) )~ E [ 4294967296 ] 115 %%%%%%%%%%% applyprim sees: ) #2 ) (eval-rands (rest-rands #1 ) #2 ) )~ apply J [ 57 ] 111 %%%%%%%%%%% ret push of 57 at 111 & len push of 98 applyuserfunc applyprim sees: (car #1 )~ setenvop H [ 112 ] 116 %%%%%%%%%%% H [ 113 ] 117 %%%%%%%%%%% G [ 16 ] 118 %%%%%%%%%%% applyprim sees: #1 )~ E [ 4294967296 ] 119 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 A [ 4 ] 116 %%%%%%%%%%% tar% = 110 & cl% = 113 & [al] = 112 applyprim sees: ~ POPBACK pos : 9 rett in: 111 op 86 Remove from stack: 7 A [ 4 ] 110 %%%%%%%%%%% tar% = 105 & cl% = 108 & al% = 92 applyprim sees: #2 ) (eval-rands (rest-rands #1 ) #2 ) )~ B [ 0 ] 111 %%%%%%%%%%% applyprim sees: ) (eval-rands (rest-rands #1 ) #2 ) )~ apply J [ 62 ] 106 %%%%%%%%%%% ret push of 62 at 106 & len push of 98 applyuserfunc applyprim sees: (@ (self-evaluating? #1 ) @ #1 (@ (variable? #1 ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) ) ) )~ setenvop K [ 464 ] 112 %%%%%%%%%%% J [ 0 ] 113 %%%%%%%%%%% H [ 107 ] 114 %%%%%%%%%%% H [ 108 ] 115 %%%%%%%%%%% G [ 14 ] 116 %%%%%%%%%%% applyprim sees: (self-evaluating? #1 ) @ #1 (@ (variable? #1 ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) ) ) )~ setenvop K [ 464 ] 117 %%%%%%%%%%% J [ 0 ] 118 %%%%%%%%%%% H [ 107 ] 119 %%%%%%%%%%% H [ 115 ] 120 %%%%%%%%%%% G [ 47 ] 121 %%%%%%%%%%% applyprim sees: #1 ) @ #1 (@ (variable? #1 ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) ) ) )~ A [ 4 ] 122 %%%%%%%%%%% applyprim sees: ) @ #1 (@ (variable? #1 ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) ) ) )~ apply J [ 26 ] 118 %%%%%%%%%%% ret push of 26 at 118 & len push of 464 applyuserfunc applyprim sees: (number? #1 )~ setenvop H [ 119 ] 123 %%%%%%%%%%% H [ 120 ] 124 %%%%%%%%%%% G [ 25 ] 125 %%%%%%%%%%% applyprim sees: #1 )~ A [ 4 ] 126 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 1 ] 123 %%%%%%%%%%% tar% = 117 & cl% = 120 & [al] = 119 applyprim sees: ~ POPBACK pos : 13 rett in: 118 op 103 Remove from stack: 7 F [ 1 ] 117 %%%%%%%%%%% tar% = 112 & cl% = 115 & al% = 107 applyprim sees: @ #1 (@ (variable? #1 ) @ (eval-variable #1 #2 ) (@ (quoted? #1 ) @ (eval-quotation #1 #2 ) (@ (definition? #1 ) @ (eval-definition #1 #2 ) (@ (if? #1 ) @ (eval-if #1 #2 ) (@ (lambda? #1 ) @ (make-procedure (lambda-parameters #1 ) (lambda-body #1 ) #2 ) (@ (begin? #1 ) @ (eval-sequence (begin-actions #1 ) #2 ) (@ (primitive? #1 ) @ (eval-primitive #1 #2 ) (@ (application? #1 ) @ (eval-application #1 #2 ) (error #1 ) ) ) ) ) ) ) ) ) )~ evalif Remove from stack: 1 T store ret of: 28 in : 113 & len: J [ 463 ] 113 %%%%%%%%%%% K [ 464 ] 112 %%%%%%%%%%% 31 applyprim sees: #1~ A [ 4 ] 117 %%%%%%%%%%% applyprim sees: ~ POPBACK pos : 30 rett in: 106 op 86 Remove from stack: 13 A [ 4 ] 105 %%%%%%%%%%% tar% = 102 & cl% = 103 & al% = 92 applyprim sees: (eval-rands (rest-rands #1 ) #2 ) )~ setenvop K [ 98 ] 106 %%%%%%%%%%% J [ 62 ] 107 %%%%%%%%%%% H [ 92 ] 108 %%%%%%%%%%% H [ 103 ] 109 %%%%%%%%%%% G [ 86 ] 110 %%%%%%%%%%% applyprim sees: (rest-rands #1 ) #2 ) )~ setenvop K [ 98 ] 111 %%%%%%%%%%% J [ 62 ] 112 %%%%%%%%%%% H [ 92 ] 113 %%%%%%%%%%% H [ 109 ] 114 %%%%%%%%%%% G [ 84 ] 115 %%%%%%%%%%% applyprim sees: #1 ) #2 ) )~ E [ 4294967296 ] 116 %%%%%%%%%%% applyprim sees: ) #2 ) )~ apply J [ 91 ] 112 %%%%%%%%%%% ret push of 91 at 112 & len push of 98 applyuserfunc applyprim sees: (cdr #1 )~ setenvop H [ 113 ] 117 %%%%%%%%%%% H [ 114 ] 118 %%%%%%%%%%% G [ 17 ] 119 %%%%%%%%%%% applyprim sees: #1 )~ E [ 4294967296 ] 120 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 B [ 0 ] 117 %%%%%%%%%%% tar% = 111 & cl% = 114 & [al] = 113 applyprim sees: ~ POPBACK pos : 9 rett in: 112 op 86 Remove from stack: 7 B [ 0 ] 111 %%%%%%%%%%% tar% = 106 & cl% = 109 & al% = 92 applyprim sees: #2 ) )~ B [ 0 ] 112 %%%%%%%%%%% applyprim sees: ) )~ apply J [ 96 ] 107 %%%%%%%%%%% ret push of 96 at 107 & len push of 98 applyuserfunc applyprim sees: (@ (no-operands? #1 ) @ '() (cons (eval (first-rand #1 ) #2 ) (eval-rands (rest-rands #1 ) #2 ) ) )~ setenvop K [ 100 ] 113 %%%%%%%%%%% J [ 0 ] 114 %%%%%%%%%%% H [ 108 ] 115 %%%%%%%%%%% H [ 109 ] 116 %%%%%%%%%%% G [ 14 ] 117 %%%%%%%%%%% applyprim sees: (no-operands? #1 ) @ '() (cons (eval (first-rand #1 ) #2 ) (eval-rands (rest-rands #1 ) #2 ) ) )~ setenvop K [ 100 ] 118 %%%%%%%%%%% J [ 0 ] 119 %%%%%%%%%%% H [ 108 ] 120 %%%%%%%%%%% H [ 116 ] 121 %%%%%%%%%%% G [ 81 ] 122 %%%%%%%%%%% applyprim sees: #1 ) @ '() (cons (eval (first-rand #1 ) #2 ) (eval-rands (rest-rands #1 ) #2 ) ) )~ B [ 0 ] 123 %%%%%%%%%%% applyprim sees: ) @ '() (cons (eval (first-rand #1 ) #2 ) (eval-rands (rest-rands #1 ) #2 ) ) )~ apply J [ 22 ] 119 %%%%%%%%%%% ret push of 22 at 119 & len push of 100 applyuserfunc applyprim sees: (null? #1 )~ setenvop H [ 120 ] 124 %%%%%%%%%%% H [ 121 ] 125 %%%%%%%%%%% G [ 18 ] 126 %%%%%%%%%%% applyprim sees: #1 )~ B [ 0 ] 127 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 1 ] 124 %%%%%%%%%%% tar% = 118 & cl% = 121 & [al] = 120 applyprim sees: ~ POPBACK pos : 11 rett in: 119 op 86 Remove from stack: 7 F [ 1 ] 118 %%%%%%%%%%% tar% = 113 & cl% = 116 & al% = 108 applyprim sees: @ '() (cons (eval (first-rand #1 ) #2 ) (eval-rands (rest-rands #1 ) #2 ) ) )~ evalif Remove from stack: 1 T store ret of: 24 in : 114 & len: J [ 99 ] 114 %%%%%%%%%%% K [ 100 ] 113 %%%%%%%%%%% 28 applyprim sees: '()~ B [ 0 ] 118 %%%%%%%%%%% applyprim sees: ~ POPBACK pos : 27 rett in: 107 op 86 Remove from stack: 13 B [ 0 ] 106 %%%%%%%%%%% tar% = 102 & cl% = 103 & al% = 92 applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 E [ 81604378642 ] 102 %%%%%%%%%%% tar% = 97 & cl% = 100 & [al] = 92 applyprim sees: ~ POPBACK pos : 97 rett in: 91 op 86 Remove from stack: 13 E [ 81604378642 ] 90 %%%%%%%%%%% tar% = 86 & cl% = 87 & al% = 76 applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 E [ 90194313236 ] 86 %%%%%%%%%%% tar% = 81 & cl% = 84 & [al] = 76 applyprim sees: ~ POPBACK pos : 97 rett in: 75 op 90 Remove from stack: 13 E [ 90194313236 ] 74 %%%%%%%%%%% tar% = 69 & cl% = 72 & al% = 49 applyprim sees: )~ apply J [ 237 ] 70 %%%%%%%%%%% ret push of 237 at 70 & len push of 238 applyuserfunc applyprim sees: (@ (null? #1 ) @ 0 (+ (first-rand #1 ) (prim-proc-add (rest-rands #1 ) ) ) )~ setenvop K [ 77 ] 75 %%%%%%%%%%% J [ 0 ] 76 %%%%%%%%%%% H [ 71 ] 77 %%%%%%%%%%% H [ 72 ] 78 %%%%%%%%%%% G [ 14 ] 79 %%%%%%%%%%% applyprim sees: (null? #1 ) @ 0 (+ (first-rand #1 ) (prim-proc-add (rest-rands #1 ) ) ) )~ setenvop H [ 71 ] 80 %%%%%%%%%%% H [ 78 ] 81 %%%%%%%%%%% G [ 18 ] 82 %%%%%%%%%%% applyprim sees: #1 ) @ 0 (+ (first-rand #1 ) (prim-proc-add (rest-rands #1 ) ) ) )~ E [ 90194313236 ] 83 %%%%%%%%%%% applyprim sees: ) @ 0 (+ (first-rand #1 ) (prim-proc-add (rest-rands #1 ) ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 0 ] 80 %%%%%%%%%%% tar% = 75 & cl% = 78 & [al] = 71 applyprim sees: @ 0 (+ (first-rand #1 ) (prim-proc-add (rest-rands #1 ) ) ) )~ evalif Remove from stack: 1 F K [ 75 ] 75 %%%%%%%%%%% J [ 75 ] 76 %%%%%%%%%%% store ret/len of: 75 in : 76 applyprim sees: (+ (first-rand #1 ) (prim-proc-add (rest-rands #1 ) ) )~ setenvop H [ 71 ] 80 %%%%%%%%%%% H [ 78 ] 81 %%%%%%%%%%% G [ 0 ] 82 %%%%%%%%%%% applyprim sees: (first-rand #1 ) (prim-proc-add (rest-rands #1 ) ) )~ setenvop K [ 75 ] 83 %%%%%%%%%%% J [ 19 ] 84 %%%%%%%%%%% H [ 71 ] 85 %%%%%%%%%%% H [ 81 ] 86 %%%%%%%%%%% G [ 82 ] 87 %%%%%%%%%%% applyprim sees: #1 ) (prim-proc-add (rest-rands #1 ) ) )~ E [ 90194313236 ] 88 %%%%%%%%%%% applyprim sees: ) (prim-proc-add (rest-rands #1 ) ) )~ apply J [ 39 ] 84 %%%%%%%%%%% ret push of 39 at 84 & len push of 75 applyuserfunc applyprim sees: (car #1 )~ setenvop H [ 85 ] 89 %%%%%%%%%%% H [ 86 ] 90 %%%%%%%%%%% G [ 16 ] 91 %%%%%%%%%%% applyprim sees: #1 )~ E [ 90194313236 ] 92 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 A [ 3 ] 89 %%%%%%%%%%% tar% = 83 & cl% = 86 & [al] = 85 applyprim sees: ~ POPBACK pos : 9 rett in: 84 op 91 Remove from stack: 7 A [ 3 ] 83 %%%%%%%%%%% tar% = 80 & cl% = 81 & al% = 71 applyprim sees: (prim-proc-add (rest-rands #1 ) ) )~ setenvop K [ 75 ] 84 %%%%%%%%%%% J [ 39 ] 85 %%%%%%%%%%% H [ 71 ] 86 %%%%%%%%%%% H [ 81 ] 87 %%%%%%%%%%% G [ 91 ] 88 %%%%%%%%%%% applyprim sees: (rest-rands #1 ) ) )~ setenvop K [ 75 ] 89 %%%%%%%%%%% J [ 39 ] 90 %%%%%%%%%%% H [ 71 ] 91 %%%%%%%%%%% H [ 87 ] 92 %%%%%%%%%%% G [ 84 ] 93 %%%%%%%%%%% applyprim sees: #1 ) ) )~ E [ 90194313236 ] 94 %%%%%%%%%%% applyprim sees: ) ) )~ apply J [ 71 ] 90 %%%%%%%%%%% ret push of 71 at 90 & len push of 75 applyuserfunc applyprim sees: (cdr #1 )~ setenvop H [ 91 ] 95 %%%%%%%%%%% H [ 92 ] 96 %%%%%%%%%%% G [ 17 ] 97 %%%%%%%%%%% applyprim sees: #1 )~ E [ 90194313236 ] 98 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 E [ 81604378642 ] 95 %%%%%%%%%%% tar% = 89 & cl% = 92 & [al] = 91 applyprim sees: ~ POPBACK pos : 9 rett in: 90 op 91 Remove from stack: 7 E [ 81604378642 ] 89 %%%%%%%%%%% tar% = 84 & cl% = 87 & al% = 71 applyprim sees: ) )~ apply J [ 73 ] 85 %%%%%%%%%%% ret push of 73 at 85 & len push of 75 applyuserfunc applyprim sees: (@ (null? #1 ) @ 0 (+ (first-rand #1 ) (prim-proc-add (rest-rands #1 ) ) ) )~ setenvop K [ 77 ] 90 %%%%%%%%%%% J [ 0 ] 91 %%%%%%%%%%% H [ 86 ] 92 %%%%%%%%%%% H [ 87 ] 93 %%%%%%%%%%% G [ 14 ] 94 %%%%%%%%%%% applyprim sees: (null? #1 ) @ 0 (+ (first-rand #1 ) (prim-proc-add (rest-rands #1 ) ) ) )~ setenvop H [ 86 ] 95 %%%%%%%%%%% H [ 93 ] 96 %%%%%%%%%%% G [ 18 ] 97 %%%%%%%%%%% applyprim sees: #1 ) @ 0 (+ (first-rand #1 ) (prim-proc-add (rest-rands #1 ) ) ) )~ E [ 81604378642 ] 98 %%%%%%%%%%% applyprim sees: ) @ 0 (+ (first-rand #1 ) (prim-proc-add (rest-rands #1 ) ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 0 ] 95 %%%%%%%%%%% tar% = 90 & cl% = 93 & [al] = 86 applyprim sees: @ 0 (+ (first-rand #1 ) (prim-proc-add (rest-rands #1 ) ) ) )~ evalif Remove from stack: 1 F K [ 75 ] 90 %%%%%%%%%%% J [ 75 ] 91 %%%%%%%%%%% store ret/len of: 75 in : 91 applyprim sees: (+ (first-rand #1 ) (prim-proc-add (rest-rands #1 ) ) )~ setenvop H [ 86 ] 95 %%%%%%%%%%% H [ 93 ] 96 %%%%%%%%%%% G [ 0 ] 97 %%%%%%%%%%% applyprim sees: (first-rand #1 ) (prim-proc-add (rest-rands #1 ) ) )~ setenvop K [ 75 ] 98 %%%%%%%%%%% J [ 19 ] 99 %%%%%%%%%%% H [ 86 ] 100 %%%%%%%%%%% H [ 96 ] 101 %%%%%%%%%%% G [ 82 ] 102 %%%%%%%%%%% applyprim sees: #1 ) (prim-proc-add (rest-rands #1 ) ) )~ E [ 81604378642 ] 103 %%%%%%%%%%% applyprim sees: ) (prim-proc-add (rest-rands #1 ) ) )~ apply J [ 39 ] 99 %%%%%%%%%%% ret push of 39 at 99 & len push of 75 applyuserfunc applyprim sees: (car #1 )~ setenvop H [ 100 ] 104 %%%%%%%%%%% H [ 101 ] 105 %%%%%%%%%%% G [ 16 ] 106 %%%%%%%%%%% applyprim sees: #1 )~ E [ 81604378642 ] 107 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 A [ 4 ] 104 %%%%%%%%%%% tar% = 98 & cl% = 101 & [al] = 100 applyprim sees: ~ POPBACK pos : 9 rett in: 99 op 91 Remove from stack: 7 A [ 4 ] 98 %%%%%%%%%%% tar% = 95 & cl% = 96 & al% = 86 applyprim sees: (prim-proc-add (rest-rands #1 ) ) )~ setenvop K [ 75 ] 99 %%%%%%%%%%% J [ 39 ] 100 %%%%%%%%%%% H [ 86 ] 101 %%%%%%%%%%% H [ 96 ] 102 %%%%%%%%%%% G [ 91 ] 103 %%%%%%%%%%% applyprim sees: (rest-rands #1 ) ) )~ setenvop K [ 75 ] 104 %%%%%%%%%%% J [ 39 ] 105 %%%%%%%%%%% H [ 86 ] 106 %%%%%%%%%%% H [ 102 ] 107 %%%%%%%%%%% G [ 84 ] 108 %%%%%%%%%%% applyprim sees: #1 ) ) )~ E [ 81604378642 ] 109 %%%%%%%%%%% applyprim sees: ) ) )~ apply J [ 71 ] 105 %%%%%%%%%%% ret push of 71 at 105 & len push of 75 applyuserfunc applyprim sees: (cdr #1 )~ setenvop H [ 106 ] 110 %%%%%%%%%%% H [ 107 ] 111 %%%%%%%%%%% G [ 17 ] 112 %%%%%%%%%%% applyprim sees: #1 )~ E [ 81604378642 ] 113 %%%%%%%%%%% applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 B [ 0 ] 110 %%%%%%%%%%% tar% = 104 & cl% = 107 & [al] = 106 applyprim sees: ~ POPBACK pos : 9 rett in: 105 op 91 Remove from stack: 7 B [ 0 ] 104 %%%%%%%%%%% tar% = 99 & cl% = 102 & al% = 86 applyprim sees: ) )~ apply J [ 73 ] 100 %%%%%%%%%%% ret push of 73 at 100 & len push of 75 applyuserfunc applyprim sees: (@ (null? #1 ) @ 0 (+ (first-rand #1 ) (prim-proc-add (rest-rands #1 ) ) ) )~ setenvop K [ 77 ] 105 %%%%%%%%%%% J [ 0 ] 106 %%%%%%%%%%% H [ 101 ] 107 %%%%%%%%%%% H [ 102 ] 108 %%%%%%%%%%% G [ 14 ] 109 %%%%%%%%%%% applyprim sees: (null? #1 ) @ 0 (+ (first-rand #1 ) (prim-proc-add (rest-rands #1 ) ) ) )~ setenvop H [ 101 ] 110 %%%%%%%%%%% H [ 108 ] 111 %%%%%%%%%%% G [ 18 ] 112 %%%%%%%%%%% applyprim sees: #1 ) @ 0 (+ (first-rand #1 ) (prim-proc-add (rest-rands #1 ) ) ) )~ B [ 0 ] 113 %%%%%%%%%%% applyprim sees: ) @ 0 (+ (first-rand #1 ) (prim-proc-add (rest-rands #1 ) ) ) )~ apply applyprimitive Remove from stack: 2 Remove from stack: 2 F [ 1 ] 110 %%%%%%%%%%% tar% = 105 & cl% = 108 & [al] = 101 applyprim sees: @ 0 (+ (first-rand #1 ) (prim-proc-add (rest-rands #1 ) ) ) )~ evalif Remove from stack: 1 T store ret of: 17 in : 106 & len: J [ 76 ] 106 %%%%%%%%%%% K [ 77 ] 105 %%%%%%%%%%% 19 applyprim sees: 0~ applyprim sees: ~ POPBACK pos : 18 rett in: 100 op 91 Remove from stack: 12 A [ 0 ] 99 %%%%%%%%%%% tar% = 95 & cl% = 96 & al% = 86 applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 A [ 4 ] 95 %%%%%%%%%%% tar% = 90 & cl% = 93 & [al] = 86 applyprim sees: ~ POPBACK pos : 74 rett in: 85 op 91 Remove from stack: 12 A [ 4 ] 84 %%%%%%%%%%% tar% = 80 & cl% = 81 & al% = 71 applyprim sees: )~ apply applyprimitive Remove from stack: 2 Remove from stack: 1 Remove from stack: 2 A [ 7 ] 80 %%%%%%%%%%% tar% = 75 & cl% = 78 & [al] = 71 applyprim sees: ~ POPBACK pos : 74 rett in: 70 op 90 Remove from stack: 12 A [ 7 ] 69 %%%%%%%%%%% tar% = 64 & cl% = 67 & al% = 49 applyprim sees: ~ POPBACK pos : 237 rett in: 48 op 103 Remove from stack: 23 A [ 7 ] 47 %%%%%%%%%%% tar% = 42 & cl% = 45 & al% = 2 applyprim sees: ~ POPBACK pos : 383 popback of initial? Remove from stack: 48 A [ 7 ] 0 %%%%%%%%%%% tar% = 0 & cl% = -1 & al% = -1