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