import Grammar
import System.Environment (getArgs)

analyze language input
        = case (parse language "" input) of
            Left err -> (input ++ " is NOT well-formed: " ++ (show err) ++ 
                                "\n")
            Right x  -> (input ++ " is well-formed\n")

main = do
  myargs <- getArgs
  putStr (concat (map (analyze tag) myargs))
  -- TODO: set return code? What code to use if some are well-formed and some are not? 
  -- TODO: provide a version with -q and -v ?