static ItIt<T3<S, Int, Long>> returnCodesOfServers_parallel_withTime(int timeout, S... servers) {
  ret returnCodesOfServers_parallel_withTime(timeout, asList(servers));
}

static ItIt<T3<S, Int, Long>> returnCodesOfServers_parallel_withTime(final int timeout, final Collection<S> servers) {
  final Var<Int> counter = new(0);
  final L<T3<S, Int, Long>> results = synchroList();
  
  // Fire up the threads (with timeouts)
  
  for (fS server : servers)
    thread "Server Check" {
      long time = sysTime();
      int result = returnCodeHttpHEADWithTimeout(timeout, server);
      results.add(t3(server, result, sysNow()-time));
      syncIncIntVar(counter);
    }
    
  // Make iterator delivering results as they come in
  ret iteratorFromFunction(new F0<T3<S, Int, Long>>() {
    int n = 0;
    
    public T3<S, Int, Long> get() {
      if (n >= l(servers)) null;
      waitForVarToChange(counter, n);
      ret results.get(n++);
    }
  });
}

Began life as a copy of #1018972