(labels ((_ (_) (if (cdr _) (cons (+ (car _) (cadr _)) (_ (cdr _))) '(1)))) (loop repeat 14 for _ = '(1) then (cons 1 (_ _)) do (format t (format nil "~~99:@<~{~@r~^~~;~}~~>~%" _))))
Standard input is empty
I
I I
I II I
I III III I
I IV VI IV I
I V X X V I
I VI XV XX XV VI I
I VII XXI XXXV XXXV XXI VII I
I VIII XXVIII LVI LXX LVI XXVIII VIII I
I IX XXXVI LXXXIV CXXVI CXXVI LXXXIV XXXVI IX I
I X XLV CXX CCX CCLII CCX CXX XLV X I
I XI LV CLXV CCCXXX CDLXII CDLXII CCCXXX CLXV LV XI I
I XII LXVI CCXX CDXCV DCCXCII CMXXIV DCCXCII CDXCV CCXX LXVI XII I
I XIII LXXVIII CCLXXXVI DCCXV MCCLXXXVII MDCCXVI MDCCXVI MCCLXXXVII DCCXV CCLXXXVI LXXVIII XIII I