(define (fib n)
  (define (fibaux v l c) (if (= c n) v (fibaux (+ v l) v (+ c 1))))
  (fibaux 0 1 0))

(write (fib (read)))