sub closetohalf
  {
  my ($up, $low) = @_;
  $low + ($up - $low) * (0.4 + rand 0.2);
  }