Module Spawn

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