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