Module Spawn

module type Control = sig ... end
module type MainLoopModel = sig ... end
module Async (ML : MainLoopModel) : sig ... end
module Sync () : sig ... end
type req =
  1. | ReqDie
  2. | Hello of int * int
val proto_version : int