( "0(" )
    index
    +
b3
scan
push-a
zip
    dup
    is-digit
    get
m3