say [*](0,|@($_=words)X-.sum/2)**½/4