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