lines
dup
    length
m1
max
pop-b
    push-b
    ljust
m2
space
"#"
    pop-a
            push-a
            catenate #(list+list)
        m2
        transpose
        reverse
    b4
    4
    times #(eval)
t5
unlines