actor Main
  new create(env: Env) =>
    var e: U32 = U32.min_value()
    repeat
      let b: U32 = e = e + (1 << 16)
      Tester(env).testPart(b, e - 1)
    until e == U32.min_value() end

actor Tester
  let env: Env

  new create(env': Env) =>
    env = env'

  be testPart(b: U32, e: U32) =>
    var i: U32 = b
    while (i <= e) do
      try
        i.string().u32()
      else
        env.out.print("Failed: i = " + i.string())
      end
      i = i + 1
      if i <= b then
        break
      end
    end