sig
  val spawn : int -> (int -> 'a) -> CCThread.t array
  val join : CCThread.t array -> unit
end