((^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))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page