Worker.Server
val read : unit -> Msg_from_master.t option
val write : Msg_from_worker.t -> unit
val fatal_error : string -> 'a