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