let string fmt str =
  Format.fprintf fmt "%s" str