(define (fib n)
    (let loop ((n1 0) (a 1) (b 1) (t 1))
        (if (= n1 n)
            a
            (loop (+ n 1) b (+ a b)))))