;; memoize
;; http://valvallow.blogspot.com/2010/09/paip-memo-memoize-define-memo.html
(define-memo (fib-m n)
  (if (or (zero? n)
          (= n 1))
      1
      (+ (fib-m (- n 1))
         (fib-m (- n 2)))))

(fib-m 10)
;; 89

(time (fib-m 10000))
;(time (fib-m 10000))
; real   0.125
; user   0.125
; sys    0.000