fork download
  1. (labels ((_ (_) (if (cdr _) (cons (+ (car _) (cadr _)) (_ (cdr _))) '(1))))
  2. (loop repeat 14 for _ = '(1) then (cons 1 (_ _)) do
  3. (format t (format nil "~~99:@<~{~@r~^~~;~}~~>~%" _))))
Success #stdin #stdout 0.01s 10504KB
stdin
Standard input is empty
stdout
                                                 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