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