;;; csc -f -O4 -block -lfa2 fib5A.scm  : 2.5 seconds
;;; csc  -O4 -block -lfa2 fib5A.scm  : 65  seconds

(import (scheme time))

(define fib 
  (lambda (x) 
      (if (<= x 1)
          x
          (+ (fib (- x 1)) (fib (- x 2))))))    

(define (main)
  (let* (  [fibNum 45] [result (fib fibNum)]  )   
    (display "(fib 45) = ")
    (display result) (newline))) 

(let ( (start (current-jiffy)) )
  (main)
  (display (- (current-jiffy) start) )
  (display " ms elapsed time") (newline))
~                                                                                        
~