sub offsets {
  my $p = $_[ 0 ];
  my $i = 2;
  my $d;
  $p /= $i++ until $d = $p % $i;

  return ( $i, $d );
}