put ((1-get)X*@($_=words))X+.sum