m:
    16
    %
    ( "\x88\xfa\x94\xd0\xe2\xc1\x81\xf8\x80\xe0" )
    get
    binary #(num to list)
    4
    ( "/\\" )
    times #(list)
    swap
    zip
        show-space
        left-uncons
        get
    m3
    3
    chunks
    new-line
    counter
    double
    dec
    ljust
    join
}
wrap-stack
flatten
lines
reverse
unlines