SCRIPT
DIM j,5
DIM k,0
DIM n,1 
DIMS t
OPENFILEOUT myf,result.txt
LABEL a
SET k,k+1
SETS t,%d,%d\,;k;j
PRP k*j*(j+2)-1,t
IF ISPRP THEN GOTO b
GOTO a
LABEL b
PRP k*j*(j+2)+1,t
IF ISPRP THEN GOTO c
GOTO a
LABEL c
SET j,k*j*(j+2)-1
WRITE myf,k
WRITE myf,j
SET n,n+1
IF n>8 THEN END
GOTO a