-- uses the parseDocument function from TexParser and removes the Either 
parseTex :: String -> [Kind]
parseTex input = case parse (parseDocument (0 :: Int) )  "(unknown)" input of
                    Left str -> []
                    Right xs -> xs


-- writes multiple files
parseTex :: String -> [Kind]
parseTex input = case parse (parseDocument (0 :: Int) )  "(unknown)" input of
                    Left str -> []
                    Right xs -> xs


-- writes multiple files
parseTex input = case parse (parseDocument (0 :: Int) )  "(unknown)" input of
                    Left str -> []
                    Right xs -> xs


-- writes multiple files