(putd 'fib #'(lambda (n)
               (if (lessp n 2)
                   1
                   (plus (fib (plus n -1)) (fib (plus n -2))))))
(fib 30)
(room)