%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)]
  printstring("10 iterations");  newline
  t = cputime
  %for iter = 1,1,10 %cycle
    count = 0
    %for i = 0,1,size %cycle
      flags(i) = true
    %repeat
    %for i = 0,1,size %cycle
      %if flags(i) # 0 %start
        prime = i+i+3
!        write(prime,1);  newline
        k = i+prime
        %while k <= size %cycle
          flags(k) = false
          k = k+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