let of_binable s =
      try
        M.of_string s
      with x ->
        raise (Of_binable (s, x))