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