let to_string_hum x =       if is_print x then String.make 1 x       else sprintf "0x%2x" (int_of_char x)