let print_uchar fmt t =
  Format.fprintf fmt "UChar.of_char '%s'" (BatUTF8.init 1 (fun _ -> t))