(labels ((_ (_) (if (cdr _) (cons (+ (car _) (cadr _)) (_ (cdr _))) '(1))))
  (loop repeat 14 for _ = '(1) then (cons 1 (_ _)) do
    (format t (format nil "~~99:@<~{~@r~^~~;~}~~>~%" _))))