After calculating of _@I on the line "011":
  $s=19371
  $n=0
Iteration 1:
  $s=6098
  $n=25
Iteration 2:
  $s=12778
  $n=50
Iteration 3:
  $s=7504
  $n=75
Iteration 4:
  $s=32145
  $n=0
Iteration 5:
  $s=43630
  $n=25
Iteration 6:
  $s=16452
  $n=50
Iteration 7:
  $s=5600
  $n=75
Iteration 8:
  $s=27784
  $n=0
Iteration 9:
  $s=15712
  $n=25
Iteration 10:
  $s=28150
  $n=50
Iteration 11:
  $s=26454
  $n=75
................
Iteration 101:
  $s=19938
  $n=25
................
Iteration 1001:
  $s=31849
  $n=25

Just before JAPH-string was printed:
  $s=19371
  $n=0