@@ -248,7 +248,7 @@ orderedList = try $ do
249 start <- option 1 $ try $ do failIfStrict
249 start <- option 1 $ try $ do failIfStrict
250 string "\\setcounter{enum"
250 string "\\setcounter{enum"
251− many1 (char 'i')
251+ many1 (oneOf "iv")
252 string "}{"
252 string "}{"
253 num <- many1 digit
253 num <- many1 digit
254 char '}'
254 char '}'