for i=3to 1999for j=2to i/2if!mod(i,j)goto 9
next
if i-p=2?p,",",i
p=i
label 9next