( "3\x00\x1f\x00\x10\x02" )
9632111
digits
    0
m1
catenate #(list+list)
reverse
m:
    counter
    power-of-2
    @0
    /
    swap
    -
    show-line