fibonacci in lisp - ofcourse non-recursive