85
binary #(num to list)
( "OX" )
select
group
    3
    center
m2
tails
tail
    24
    rjust
m2
m:
    3
    chunks
    704160325
    digits
    swap
    select
    3
    chunks
        "|"
        join
    m2
    "+"
    show-line
    group
    reverse
    @0
    catenate #(list+list)
    "-"
    3
    times #(list)
    join
    join
    show-line
    show-line