#!/usr/local/bin/guile \
-e main -s
!#
;;; $Id: fibo.guile,v 1.5 2001/06/29 23:12:37 doug Exp $
;;; http://www.bagley.org/~doug/shootout/

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

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