tests/mzscheme/common/src/fibo.mzscheme

;; END COMMENT
(define (main args)
  (let ((n (or (and (= (length args) 1) (string->number (car args))) 1)))
    (display (fib n))
    (newline)))

(define (fib n)
  (cond ((< n 2) 1)
	(else (+ (fib (- n 2)) (fib (- n 1))))))


Generated by GNU enscript 1.6.3.