sub uv_fits_double {

  my $arg = shift;

  return 1 if $arg < 9007199254740993;

  while(!($arg & 1)) {
    $arg >>= 1;
    return 1 if $arg < 9007199254740993;
  }

  return 0;
}