((^l #1=(#0=format #t"##~v,,,'#A#
"#2=(+(apply max(map string-length l))1)"")(map(^x(#0##t"# ~vA#
"#2#x))`("",@l""))#1#)(port-map(^x x)read-line))