sub log_N
{
  my $num = shift;
  my $base = shift;
  return log($num)/log($base);
}