(load "/lib/lisp/core.lsp")
(defn fib (n)
(cond
((< n 2) n)
(true (+ (fib (- n 1)) (fib (- n 2))))))
(println
((null? args) "Usage: fibonacci <num>")
(true (fib (parse (car args))))))