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