line-mode
words
extract-array
show-line
0
rot
m:
    read-num
    +
    10
    %
    over
    head
    over
    show
    member
        pop
        tail
        0
    f3
}
logical-or
show
catenate #(list+list)
is-space
w( "NO" "YES" )
get