sub range{
  my($lo, $hi) = @_;

   ($lo, $hi) = (sort grep {$_ >= $lo and $_ <= $hi} @F)[0,-1];
   return $lo..$hi;
}