Name: Anonymous 2013-08-27 8:08
(define (fib n)
(((lambda (x) (x x))
(lambda (fhelp)
(lambda (remaining cpair)
(if (zero? remaining)
(cdr cpair)
((fhelp fhelp) (sub1 remaining) (cons (cdr cpair) (+ (car cpair) (cdr cpair))))))))
n (cons 0 1)))