;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define fibonacci
   (lambda (n)
     (let fib ((i n))
       (cond
         ((= i 0) 0)
         ((= i 1) 1)
         (else (+ (fib (- i 1)) (fib (- i 2))))))))
;Value: fibonacci

(fibonacci 0)
;Value: 0

(fibonacci 1)
;Value: 1

(fibonacci 2)
;Value: 1

(fibonacci 3)
;Value: 2

(fibonacci 4)
;Value: 3

(fibonacci 5)
;Value: 5

(fibonacci 6)
;Value: 8

(fibonacci 20)
;Value: 6765

(fibonacci 30)
;Value: 832040

(define fibonacci-CPS
   (lambda (n)
     (let fib-CPS ((i n)
                   (k (lambda (x) x)))
       (cond
         ((= i 0) (k 0))
         ((= i 1) (k 1))
         (else    (fib-CPS (- i 1) (lambda (v1) (fib-CPS (- i 2) (lambda (v2) (k (+ v1 v2)))))))))))
;Value: fibonacci-cps

(fibonacci-CPS 0)
;Value: 0

(fibonacci-CPS 1)
;Value: 1

(fibonacci-CPS 2)
;Value: 1

(fibonacci-CPS 3)
;Value: 2

(fibonacci-CPS 4)
;Value: 3

(fibonacci-CPS 5)
;Value: 5

(fibonacci-CPS 6)
;Value: 8

(fibonacci-CPS 20)
;Value: 6765

(fibonacci-CPS 30)
;Value: 832040