Я хотел бы реализовать функциональный стек в схеме. Это моя попытка: (define make-stack (letrec ((do-op (lambda (stack op . val) (cond ((eq? op 'push) (lambda (op . v) (do-op...