ascii-digits
m:
    swap
    lines
    length
    copies
    @1
    copies
    @4
    transpose
    reverse
    catenate #(list+list)
    unlines