let
to_string_hum x =
if
is_print x
then
String
.make 1 (char_of_int x)
else
sprintf
"&#x%X;"
x