printEXTRACTION :: EXTRACTION -> Doc
printEXTRACTION (ExtractOrRemove b aa _) =
   keyword (if b then "extract" else "remove") <+> fsep (map pretty aa)
printEXTRACTION :: EXTRACTION -> Doc
printEXTRACTION (ExtractOrRemove b aa _) =
   keyword (if b then "extract" else "remove") <+> fsep (map pretty aa)
printEXTRACTION (ExtractOrRemove b aa _) =
   keyword (if b then "extract" else "remove") <+> fsep (map pretty aa)