(define fib
  N -> (let A (/. A N
                  (if (< N 2)
                      N
                      (+ (A A (- N 2))
                         (A A (- N 1)))))
         (A A N)))