SCRIPT DIM i DIM j,2 DIM k,5 DIM n,3 OPENFILEOUT myf,a(n).txt LABEL loop SET n,n+4 SET i,0 PRP n IF ISPRP THEN GOTO b LABEL a SET n,n+6 SET i,1 PRP n IF ISPRP THEN GOTO b GOTO loop LABEL b PRP 6*n^k+1,n IF ISPRP THEN GOTO c IF i==1 THEN GOTO loop GOTO a LABEL c PRP 6*n^k-1,n IF ISPRP THEN GOTO d IF i==1 THEN GOTO loop GOTO a LABEL d WRITE myf,n SETj,j+1 SET k,p(j) IF i==1 THEN GOTO loop GOTO a