sig
  type 'c t
  val create :
    master:(string * 'c -> string -> (string * 'c) list) ->
    'c Functory.Network.Mono.Computation.t
  val add_worker :
    'c Functory.Network.Mono.Computation.t -> Functory.Network.worker -> unit
  val remove_worker :
    'c Functory.Network.Mono.Computation.t -> Functory.Network.worker -> unit
  val one_step :
    ?timeout:float -> 'c Functory.Network.Mono.Computation.t -> unit
  val status :
    'c Functory.Network.Mono.Computation.t ->
    Functory.Network.computation_status
  val kill : 'c Functory.Network.Mono.Computation.t -> unit
  val clear : 'c Functory.Network.Mono.Computation.t -> unit
  val add_task :
    'c Functory.Network.Mono.Computation.t -> string * 'c -> unit
end