sig
  val compute : ('a -> 'b) -> Functory.Network.worker_type
  val map : f:('a -> 'b) -> Functory.Network.worker_type
  val map_local_fold : f:('a -> 'b) -> Functory.Network.worker_type
  val map_remote_fold :
    f:('a -> 'b) -> fold:('c -> 'b -> 'c) -> Functory.Network.worker_type
  val map_fold_ac :
    f:('a -> 'b) -> fold:('b -> 'b -> 'b) -> Functory.Network.worker_type
  val map_fold_a :
    f:('a -> 'b) -> fold:('b -> 'b -> 'b) -> Functory.Network.worker_type
end