(set'*print-right-margin*(read))(loop(doseq(x(#1=asdf::split(remove #\)(format()"~A"(#1#(read-line))))99"
"))(write-line(subseq x 1))))