$n = 1;
$i = 1;
$m = 1;
$tot = 1;
while ($n < 1000001) {
  for ($j = 0; $j < length($i); $j++) {
    if (($n % $m) == 0) {
      $q = substr($i,$j,1);
      print "$n => $q\n";
      $tot *= $q;
      $m *= 10;
    }
    $n++;
  }
  $i++;
}
print "----\n$tot\n";
<STDIN>;