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