use Math::Factor::XS qw/factors/;
sub closest {
  my @d = (1, factors($_[0]), $_[0]);
  $d[ $#d >> 1 ];
}