SCRIPT
DIM cc
DIM n,0
DIM i
DIM j
DIM k
DIM pp
DIM qq
DIMS t
OPENFILEOUT myf,a(n).txt
LABEL a
SET n,n+1
IF n>650 THEN END
SET k,-1
LABEL b
SET i,0
SET j,0
SET cc,0
SET k,k+2
SETS t,%d,%d\,;n;k
SET pp,k*2^n-1
PRP pp,t
IF ISPRP THEN GOTO c
GOTO b
LABEL c
SET j,j-2
SETS t,%d,%d,%d\,;n;k;j
SET qq,pp+j
PRP qq,t
IF ISPRP THEN SET cc,1
SET i,i+2
SETS t,%d,%d,%d,%d\,;n;k;j;i
SET qq,pp+i
PRP qq,t
IF ISPRP && cc==1 THEN GOTO w
IF cc==1 THEN GOTO b
IF ISPRP THEN GOTO b
GOTO c
LABEL w
WRITE myf,t
GOTO a