main :: IO ()
main =
  do args <- getArgs
     case args of
       [] -> hPutStrLn stderr "Need a list of primitives."
       _  -> mapM_ (setPrePost . Text.pack) args
main :: IO ()
main =
  do args <- getArgs
     case args of
       [] -> hPutStrLn stderr "Need a list of primitives."
       _  -> mapM_ (setPrePost . Text.pack) args
main =
  do args <- getArgs
     case args of
       [] -> hPutStrLn stderr "Need a list of primitives."
       _  -> mapM_ (setPrePost . Text.pack) args