space
left-cons
show-space
itemize
transpose
m:
    push-b
    4
    /
    inc
    double
    center
    "_"
    tuck
    catenate #(list+list)
    catenate #(list+list)
}
"\\"
@5
124
ljust
"/"
catenate #(list+list)
show-space
left-cons
@2
empty-list
left-cons
reverse
itemize
catenate #(list+list)
transpose
reverse
unlines