S.Mutexval acquire : 
  Client.connection ->
  ?atime:float ->
  ?ltime:int ->
  string ->
  string ->
  unit IO.tval release : Client.connection -> string -> string -> unit IO.tval with_mutex : 
  Client.connection ->
  ?atime:float ->
  ?ltime:int ->
  string ->
  (unit -> 'a IO.t) ->
  'a IO.t