let memo kf = Functionwise_Dependencies.memo (fun kf -> !force_compute kf; try Functionwise_Dependencies.find kf with Not_found -> invalid_arg "could not compute dependencies") kf