(defun e(f)`(,#0=(/(ceiling 1 f)),@(if(< #0#f)(e(- f #0#)))))(loop(format t" =~{ ~A~^ +~}
"(e(princ(read)))))