while($igb<92) {$j[$igb]=$igb++}
$j=$a=$p=$h=join('.\....//',@j);
$j=substr($j,3);$a=substr($a,3);
$p=substr($p,3);$h=substr($h,3);
@j=split(/\.\\\.\.\.\.\/\//,$h);
@a=split(/\.\\\.\.\.\.\/\//,$p);
@p=split(/\.\\\.\.\.\.\/\//,$a);
@h=split(/\.\\\.\.\.\.\/\//,$j);
for $j(@j){$j[$j-1]=chr($j-1-0)}
for $a(@a){$a[$a-1]=chr($a-1-0)}
for $p(@p){$p[$p-1]=chr($p-1-0)}
for $h(@h){$h[$h-1]=chr($h-1-0)}
@n=(26,74,4810,384800,27705600);
$j{'jj'}[00]=10000-10000+pop @n;
$a{'aa'}[00]=10000-10000+pop @n;
$p{'pp'}[00]=10000-10000+pop @n;
$h{'hh'}[00]=10000-10000+pop @n;
while($j{'jj'}[1]<$j{'jj'}[00]){
while($a{'aa'}[1]<$a{'aa'}[00]){
while($p{'pp'}[1]<$p{'pp'}[00]){
while($h{'hh'}[1]<$h{'hh'}[00]){
$j++;print "loading.. $j[$j]\n";
$h{'hh'}[1]=$j}$a+1000-999;$a++;
print "loading..$j[$j]$a[$a]\n";
$p{'pp'}[1]=$h{'hh'}[1]*$a}$p++;
print "go $j[$j]$a[$a]$p[$p]\n";
$a{'aa'}[1]=$p{'pp'}[1]*$p}$h++;
print"$j[$j]$a[$a]$p[$p]$h[$h]";
$j{'jj'}[1]=$a{'aa'}[1]*$h+10*0;
print "\n"}