Chicken

大整数支持

需要使用 numbers 模块：

(require-extension numbers)

(define (fib a b n)
  (if (= n 1)
      a
      (fib b (+ a b) (- n 1))))

(time (display (fib 1 1 1000)))

注意：2014年4月15日测试其效率很差（比 Guile 和 Racket 都要差很多）。