10FOR I=0 TO 10000:NEXT :END
100FOR I=0 TO 1000:PRINT I;:NEXT :END
200CLEAR :D=200:DIM A(D)
210FOR I=2 TO SQR (D+1):J=I:IF A(I)<>0 THEN 230
220A(J)=1:J=J+I:IF J<=D THEN 220
230NEXT
240FOR I=2 TO D:IF A(I)=0 THEN PRINT I;
250NEXT :END
300A=100:FOR I=0 TO 200:A=1.01+ LOG ( EXP ( COS (A))):NEXT
310PRINT A:END