(define (memoize f)
  (let ((memo (make-eq-hashtable)))
        (lambda (n)
          (if (hashtable-contains? memo n) '()
             (hashtable-set! memo n (f n)))
          (hashtable-ref memo n '())
        )))
(define power (lambda (n)
     (if (= n 0) 1 
         (+ (power (- n 1)) (power (- n 1)))
     )))
(power 27) ; медленно
(define power (memoize power))
(power 27) ; теперь быстро
