;;; $Id: fibo.poplisp,v 1.0 2002/04/22 16:51:00 dada Exp $

(defun fib (n)
(if (<; n 2) 1 (+ (fib (- n 1)) (fib (- n 2)))))

(let 
    ((n (parse-integer (or (car pop11::poparglist) "1"))))
    (prin1 (fib n))
)