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