SCRIPT
DIM i,1
DIM j
DIM k
DIM q
DIM m,3
DIM n,2
DIMS t
OPENFILEOUT myf,out.txt
LABEL loop
SET i,i+1
SET j,p(i)
SET n,n*j
SET m,m+1
SET k,0
LABEL bou
SET k,k+1
SET q,-1
LABEL ici
SET q,q+1
IF q>m THEN GOTO la
SETS t,%d,%d,%d,%d\,;i;j;k;q
PRP (k+q)*n-1,t
IF ISPRP THEN GOTO ici
GOTO bou
LABEL la
WRITE myf,t
GOTO loop