let
try_print ppf = gen_print ppf (
fun
_
->
raise)