sub make_iter {
   my ($base) = @_;

   my $num = Math::BigInt->new(1);

   return sub {
      $num->binc;
      return Math::BigInt->new( $num->as_bin() =~ s/^0?b//r );
   };
}