sig val compute : (string -> string) -> Functory.Network.worker_type end