second.nim

# Compile with -d:release --noMain --gc:none
proc printf(fmt: cstring) {.importc, varargs.}

proc `[]=`*[Idx, T](a: var array[Idx, T], b: T) =
  ## Sets all values in an array to b
  for i in 0..<a.len: 
    a[i] = b 

var flags: array[8191, bool]
proc main*(): cint {.exportc, cdecl.} = 
  printf("10 iterations\n");
  var count = 0
  for iter in 1..11:
    count = 0
    flags[] = true
    for i in 0..<flags.len:
      if flags[i]:
        let prime = i + i + 3
        var k = i + prime
        while k < flags.len:
          flags[k] = false
          k += prime
        inc count
  printf("%d primes\n", count)
  return 0