let
print ppf x = pp_print_string ppf (to_string x)