fibo.lsp

(defun fibo (n)
  	(cond
		((eq n  1) 1)
		((zerop n) 1)
		(t (print (+ (fibo (- n 2)) (fibo (- n 1)))))
	)
)