;; csc -O5 fib.scm && time ./fib

(import (srfi 1) (chicken fixnum))

(define (fib n)
  (if (or (fx= n 0) (fx= n 1))
      n
      (fx+ (fib (fx- n 1)) (fib (fx- n 2)))))

(for-each (compose print fib) (iota 38))
; (for-each (o print fib) (iota 38))