Вычисления на стеке

(define env (interaction-environment))


(define (compute . args)
        (define (iter S l)
                (if (null? l)
                    (car S)
                    (if (procedure? (car l))
                        (iter (cons (eval (list (car l) (car S) (cadr S)) env) (cddr S))
                              (cdr l)
                        )
                        (iter (cons (car l) S) (cdr l)))))
(iter '() args))