line-mode
words
pairwise
    extract-array
    swap
    split
    length
    dec
m5
product
not
w( "YES" "NO" )
get