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