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