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