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