let print ppf = gen_print ppf default_handler