sub test {
   my ($num, $base) = @_;
   while ($num > 0) {
      my $digit = $num % $base;
      return 0 if $digit > 1;
      $num = ($num - $digit)/$base;
   }

   return 1;
}