sub in_open_range { my ($x, $min, $max) = @_; return ($min < $x && $x < $max); }