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