lines
    "`"
    split
m2
dup
transpose
        length
    m1
    max
m3
pop-a
m:
    tuck-a
        ljust
    z1
    unwords
    show-line