@@ -45,7 +45,7 @@ readTeXMath inp = case parse teXMath "input" inp of
4545teXMath = manyTill mathPart eof >>= return . concat
4646
4747mathPart = whitespace <|> superscript <|> subscript <|> symbol <|>
48− argument <|> plain <|> misc
48+ argument <|> digits <|> letters <|> misc
4949
5050whitespace = many1 space >> return []
5151
@@ -64,9 +64,13 @@ argument = try $ do
6464 then [Str " "]
6565 else [Str "{"] ++ concat res ++ [Str "}"]
6666
67−plain = do
68− res <- many1 alphaNum
69− return $ [Emph [Str res]]
67+digits = do
68+ res <- many1 digit
69+ return [Str res]
70+
71+letters = do
72+ res <- many1 letter
73+ return [Emph [Str res]]
7074
7175misc = do
7276 res <- noneOf "{}\\"