#!/usr/bin/newlisp
;;
;; fibonacci series
;; 

(define (fibo n)
	(if(< n 2) 1
	(+  (fibo (- n 1))
	    (fibo (- n 2)))))

(println (fibo (integer (main-args 2))))

(exit)