%begin
%integer t
%own%short i;                       !I first %own
%constinteger size=8190, false=0, true=1
%bytearray flags(0:size)
%short%integer count,iter,prime,k;  !K last [@(SP)]
%option "-low"
  printstring("10 iterations");  newline
  t = cputime
  %for iter = 1,1,10 %cycle
    count = 0
    %for d2 = 0,1,size %cycle
      flags(d2) = true
    %repeat
    %for d2 = 0,1,size %cycle
      %if flags(d2) # 0 %start
        d0 = d2
        prime = d0+d0+3
!        write(prime,1);  newline
        d3 = d2+prime
        %while d3 <= size %cycle
          flags(d3) = false
          d3 = d3+prime
        %repeat
        count = count+1
      %finish
    %repeat
  %repeat
!  write((cputime-t),1);  printstring(" milliseconds");  newline
  print((cputime-t)/1000,1,3);  printstring(" seconds");  newline
  write(count,1);  printstring(" primes");  newline
%endofprogram