sig
  exception Ldap_mutex of string * exn
  class type mutex_t = object method lock : unit method unlock : unit end
  class mutex :
    string list ->
    string ->
    string -> string -> object method lock : unit method unlock : unit end
end