lines
    "`"
    split
m2
transpose
    save-a
        push-a
            length
            ljust
        b2
        each
    m4
m3
transpose
m:
    unwords
    show-line