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

(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 (clk)) )
  (main)
  (display (- (clk) start) )
  (display " ms elapsed time") (newline))
~