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