let of_string_conv str f =
  gen_of_string_conv of_string Annotated.of_string str f