(define (fib n)
  (if (< n 2)
      n
      (+ (fib (- n 1))
         (fib (- n 2)))))



(time (fib 30))
;time は　cdrの一つ目の実行時間を計測するデバック関数
;実行結果
;8918[ms]
;832040

結構遅くなっちゃった。
環境の取り回しが重くなったのが原因なのかなぁ。