say sqrt(-[*](@($_=words)X-$!=.sum/2)*$!)/4