functor (Options : sig val profiling : bool end-> Solver