define PrimeThread {
  @value ThreadContinue flag
  @value PrimeTracker   tracker

  create (flag, tracker) {
    return delegate -> #self
  }

  run () {
    while (flag.shouldContinue()) {
      \ tracker.checkNextPossible(flag)
    }
  }
}