let to_string_hum x = sprintf "%S" x