(defvar a 0)
(defvar b 1)
(loop for i from 0 to 10
    do (write a)
       (if (= i 10) (print b) (write b))
       (setq a (+ a b))
       (setq b (+ a b))
)