lines
m:
    space
    79
    times #(list)
    swap
    catenate #(list+list)
    tails
    reverse
}
transpose
m:
        80
        take
        @1
        ljust
    m4
    unlines
    293
    chunks
    right-uncons
    left-uncons
    even
    "*"
    show-space
    get
    swap
    show-line
    show-line