SCRIPT DIM i,2 DIM j DIM k DIM m DIM n,6 DIMS t OPENFILEOUT myf,out.txt LABEL loop1 SET i,i+1 IF i>2000 THEN END SET j,p(i) SET n,n*j SET k,i LABEL loop2 SET k,k+1 SET m,p(k) SETS t,%d,%d,%d,%d\,;i;j;k;m PRP n-m,t IF ISPRP THEN GOTO a GOTO loop2 LABEL a WRITE myf,t GOTO loop1