let
print_escaped_string f =
Format
.fprintf f
"%S"