#!/usr/bin/perl -w
our $base=247;
my $outbase=10;

my $dp=shift;
my $it=shift ||$dp;
my @n=(1);
my @d=(1);
for my $m (1..$it) {
    multby($m,\@n);
    plusplus(\@n);
    multby($m,\@d);
}
for(1..$dp) {
my $digit=0;
    while (!greaterthan(\@n,\@d)) {
	$digit++;
	subtract(\@n,\@d);
    }
    print "$digit";
    multby($outbase,\@n);
}
print "\n";

sub multby {
    my ($n, $m)=@_;
    my @f;
    use integer;
    for my $i (0..$#$m) {
	my $e=$m->[$i];
	$e*=$n;
	my $f=$e/$base;
	$e-=$f*$base; # or %
	$m->[$i]=$e;
	$f[$i+1]=$f if $f;;
    }
    for my $i (0..$#f) {
	$m->[$i]+=$f[$i] if $f[$i];
	$m->[$i]-=$base,$m->[$i+1]++ while $m->[$i]>=$base;
    }
}

sub plusplus {
    my $m=shift;
    my $i=0;
    $m->[0]++;
    $m->[$i]=0,$m->[++$i]++ while ($m->[$i]==$base);
}

sub subtract {
    my ($n, $m)=@_;
    no warnings;
    my $w=$#$m>$#$n?$#$m:$#$n;
    for my $i (0..$w+1) {
	$n->[$i]-=$m->[$i] if $m->[$i];
	$n->[$i]+=$base,$n->[$i+1]-- while $n->[$i]<0;
    }
}
	    
sub greaterthan {
    my ($n, $m)=@_;
    no warnings;
    my $w=$#$m>$#$n?$#$m:$#$n;
    for(my $i=$w;$i>=0;$i--) {
	my $a=$m->[$i]-$n->[$i];
	return $a>0 if $a;
    }
    return 0;
}