pprAnti
  :: (Data a)
  => a -> String -> Doc
pprAnti s t = char '$' <> text (toQQString s) <> char ':' <> text t
pprAnti
  :: (Data a)
  => a -> String -> Doc
pprAnti s t = char '$' <> text (toQQString s) <> char ':' <> text t
pprAnti s t = char '$' <> text (toQQString s) <> char ':' <> text t