printFILTERING :: FILTERING -> Doc
printFILTERING (FilterBasicSpec b aa _) =
   keyword (if b then selectS else rejectS) <+> pretty aa
printFILTERING :: FILTERING -> Doc
printFILTERING (FilterBasicSpec b aa _) =
   keyword (if b then selectS else rejectS) <+> pretty aa
printFILTERING (FilterBasicSpec b aa _) =
   keyword (if b then selectS else rejectS) <+> pretty aa