let ocaml_ppflags tags =
  let flags = Flags.of_tags (tags++"ocaml"++"pp"in
  let reduced = Command.reduce flags in
  if reduced = N then N else S[A"-pp"Quote reduced]