read-num
digits
m:
    5
    divmod
    2
    5
    {
        101
        digits
        swap
        4
        copies
        compress
        rot
        drop
        @5
        double
        take
        2
        left-cons
    }
    both
    reverse
    2
    left-cons
    catenate #(list+list)
    "="
    6
    times #(list)
    w( "||" "(__)" )
        6
        center
    m2
    right-cons
    select
}
w( "| /=<=\\=" " |=\\=>=/" )
m:
    2
    chunks
    ( "\x1e\x14\x00\x01" )
    5
    power-of-10
    base #(list to num)
    digits
    swap
    select
}
group
swap
join
transpose
m:
    "|"
    left-cons
    @1
    show-line