
sub base_n_encode {
   my ($N, @digits) = @_;
   return $digits[0] if $N == 0;
   my $r = "";
   while ($N) {
     $r .= $digits[$N % @digits];
     $N = int($N / @digits); 
   }	
   return $r;
}
