sub hamilton {
  my ($n, $b) = @_;
  my ($a, $x) = (0, $b);
  while ($n) {
    $a += ($n % $b)/$x;
    $x = $x * $b;
    $n = int ($n / $b);
  }
  return $a;
}