read-num
digits
m:
    5
    divmod
        power-of-10
        digits
        5
        0
        rjust
    t5
    catenate #(list+list)
    2
    catenate #(list+elem)
    push-b
    2
    &
    counter
    +
    4
    %
    3
    =
    inc
    inc
    catenate #(list+elem)
    reverse
    1870234561
    digits
    swap
    select
    ( "<-> | ====*=" )
    3
    chunks
    select
}
transpose
unlines