infi

$ for i in fibonacci*.scm ; do echo -e "$i:\n---------------" ; cat $i ; done
fibonacci.scm:
---------------
(define (fib n)
        (cond ((= n 0) 0)
                  ((= n 1) 1)
                  (else (+ (fib (- n 1))
                                   (fib (- n 2))))))

fibonacci2.scm:
---------------
(define (fibonacci x)
        (fib-iter 1 0 x))

(define (fib-iter a b count)
        (if (= count 0)
                b
                (fib-iter (+ a b) a (- count 1))))