sig
  module Computation :
    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
  module Master :
    sig
      val compute :
        master:(string * 'c -> string -> (string * 'c) list) ->
        (string * 'c) list -> unit
    end
  module Worker :
    sig val compute : (string -> string) -> Functory.Network.worker_type end
end