line-mode
words
extract-array
0
rot
m:
    read-num
    +
    10
    %
    over
    1
    take
    over
    show
    =
        pop
        tail
        0
    f3
}
pop
logical-or
sign
not
w( "NO" "YES" )
get