sub middle { my($low, $high) = @_; return ($low + $high) / 2; }