use strict;

my $f = "";
my $i = 0;
while (length($f) <= 1000000) {
  $f .= (++$i);
}
my @fa = split(//, $f);
print ($fa[0] * $fa[9] * $fa[99] * $fa[999] * $fa[9999] * $fa[99999] * $fa[999999]),"\n";