Module Spawn
module type Control = sig ... endmodule type MainLoopModel = sig ... endmodule Async : functor (ML : MainLoopModel) -> sig ... endmodule Sync : functor () sig ... endSpawnmodule type Control = sig ... endmodule type MainLoopModel = sig ... endmodule Async : functor (ML : MainLoopModel) -> sig ... endmodule Sync : functor () sig ... end