line-mode
words
    3
    combinations
    m:
        sort #(list)
            dec
            3
            divmod
            thousand
            +
        m5
        extract-array
        over
        -
        -
        -
    }
    product
    not
m6
binary #(list to num)
( "COX" )
get
itemize