let pp_print_unaryop ppf b = let t = function | UnaryPlus -> "+" | UnaryMinus -> "-" | LogNot -> "!" | IntNot -> "~" in pp_print_string ppf (t b)