primes.bf.pl

my @a;my $l=0;my $p=0;
while($a[$p]){if($l++ > 1_000_000){ return ();} 
 $p--;if($p<0) { return @a;}
 $p--;if($p<0) { return @a;}
 $p++;
 while($a[$p]){if($l++ > 1_000_000){ return ();} 
  $a[$p]++;
  $a[$p]++;
  $a[$p]--;
 }
 $a[$p]++;
 $p--;if($p<0) { return @a;}
 $a[$p]++;
 $a[$p]++;
 $p++;
 while($a[$p]){if($l++ > 1_000_000){ return ();} 
  $p++;
  $p++;
  $p--;if($p<0) { return @a;}
  $p--;if($p<0) { return @a;}
  $p--;if($p<0) { return @a;}
 }
 $a[$p]--;
 $a[$p]--;
 while($a[$p]){if($l++ > 1_000_000){ return ();} 
  $p--;if($p<0) { return @a;}
 }
}
$p++;
$p++;
$a[$p]--;
$a[$p]++;
$a[$p]--;
$a[$p]++;
$a[$p]++;
$p++;
while($a[$p]){if($l++ > 1_000_000){ return ();} 
 $p++;
}
$p++;
while($a[$p]){if($l++ > 1_000_000){ return ();} 
 while($a[$p]){if($l++ > 1_000_000){ return ();} 
  $p++;
  $p--;if($p<0) { return @a;}
  $p++;
 }
}
$p++;
$a[$p]++;
$p++;
$p++;
$a[$p]++;
$p++;
$p++;
$p++;
$p++;
$a[$p]++;
while($a[$p]){if($l++ > 1_000_000){ return ();} 
 $p++;
 $p++;
 $a[$p]++;
 $p++;
 $p++;
 while($a[$p]){if($l++ > 1_000_000){ return ();} 
  $a[$p]++;
 }
 $p++;
 $p++;
 $a[$p]++;
 $p++;
 $p++;
 $a[$p]++;
 $p++;
}
$p++;
$p++;
$p++;
$a[$p]--;
$a[$p]++;
while($a[$p]){if($l++ > 1_000_000){ return ();} 
 $p--;if($p<0) { return @a;}
 $a[$p]--;
 $p++;
 $p++;
}
$a[$p]++;
$p++;
$p++;
$a[$p]--;
$a[$p]++;
$p++;
$a[$p]++;
$a[$p]--;
$p++;
$p++;
$p++;
$p++;
$p++;
$a[$p]++;
while($a[$p]){if($l++ > 1_000_000){ return ();} 
 $p++;
 $p++;
}
$p++;
$p++;
$p++;
$p++;
$a[$p]--;
$a[$p]++;
$a[$p]++;
$p++;
$a[$p]--;
$a[$p]++;
$p++;
$p++;
$a[$p]--;
$a[$p]++;
$a[$p]--;
while($a[$p]){if($l++ > 1_000_000){ return ();} 
 $a[$p]++;
 while($a[$p]){if($l++ > 1_000_000){ return ();} 
  $a[$p]--;
  $p++;
  $a[$p]++;
  $a[$p]--;
  $p++;
  while($a[$p]){if($l++ > 1_000_000){ return ();} 
   $a[$p]++;
   $p++;
   $p--;if($p<0) { return @a;}
  }
 }
 $p++;
}
$a[$p]++;
$p++;
$p++;
$a[$p]--;
$a[$p]++;
$a[$p]++;
$p++;
$p++;
$p++;
$p++;
$a[$p]++;
$p++;
$a[$p]++;
$a[$p]--;
$p++;
$a[$p]--;
$a[$p]++;
$p++;
$p++;
$p++;
$a[$p]--;
$a[$p]++;
$p++;
$a[$p]++;
$p++;
$p++;
$a[$p]++;
$a[$p]--;
$p++;
$p++;
$p++;
$a[$p]--;
$a[$p]++;
$a[$p]++;
$a[$p]--;
$p++;
$a[$p]++;
$p++;
$a[$p]--;
$a[$p]++;
$a[$p]++;
$a[$p]--;
$p++;
while($a[$p]){if($l++ > 1_000_000){ return ();} 
}
$a[$p]++;
$p++;
$p++;
$p++;
$p++;
$p++;
$a[$p]++;
$a[$p]--;
$p++;
while($a[$p]){if($l++ > 1_000_000){ return ();} 
}
$a[$p]++;
$p++;
$p++;
$a[$p]++;
$a[$p]--;
$p++;
$p++;
$a[$p]++;
$p++;
$p++;
$a[$p]++;
$p++;
while($a[$p]){if($l++ > 1_000_000){ return ();} 
}
$p++;
$p++;
$a[$p]--;
$a[$p]++;
$p++;
$p++;
$a[$p]--;
while($a[$p]){if($l++ > 1_000_000){ return ();} 
 $a[$p]++;
 $p++;
 $a[$p]++;
 $p++;
 $p++;
 $a[$p]--;
 $a[$p]++;
 $p++;
 $p++;
}
$p++;
$a[$p]--;
$a[$p]++;
$a[$p]++;
$a[$p]--;
$p++;
$p++;
$a[$p]--;
$p++;
$p--;if($p<0) { return @a;}
$a[$p]++;
$p++;
$p++;
$p++;
$a[$p]++;
$p++;
$p++;
$a[$p]--;
$a[$p]++;
$p++;
$p++;
$p++;
$a[$p]--;
$a[$p]++;
$p++;
$p++;
$p++;
$a[$p]++;
$p++;
$p++;
$a[$p]++;
$a[$p]--;
$p++;
$p++;
$a[$p]++;
$a[$p]--;
$p++;
$a[$p]--;
$a[$p]++;
$p++;
$a[$p]++;
$p--;if($p<0) { return @a;}
while($a[$p]){if($l++ > 1_000_000){ return ();} 
 $p++;
 while($a[$p]){if($l++ > 1_000_000){ return ();} 
 }
 $a[$p]++;
 $p++;
 $a[$p]--;
 $a[$p]--;
 $p--;if($p<0) { return @a;}
 $p++;
 $p--;if($p<0) { return @a;}
 $p--;if($p<0) { return @a;}
}
$p--;if($p<0) { return @a;}
$a[$p]++;
$p--;if($p<0) { return @a;}
while($a[$p]){if($l++ > 1_000_000){ return ();} 
 $p--;if($p<0) { return @a;}
 while($a[$p]){if($l++ > 1_000_000){ return ();} 
  $a[$p]--;
  while($a[$p]){if($l++ > 1_000_000){ return ();} 
   $p--;if($p<0) { return @a;}
}}}
return @a;
#end