lines
"#"
10
ljust
inits
tail
m:
    save-a
        92
        ^
    m2
    43
    catenate #(list+elem)
    pop-b
        transpose
        reverse
            45
            43
                tuck-a
                catenate #(list+elem)
                split
                push-b
                join
                s( "#\\|" "\x7f|" )
            t6
                itemize
                ( "|-" )
                xor
                head
            m4
        m6
    b4
    4
    times #(eval)
}
pop
unlines
s( "\x7f" "#" )
110
chunks
extract-array
s( "^\\|" "+" )