diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 18cd2a9..cba3704 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -220,6 +220,12 @@ parseEscapedChar = do
   escapedChar <- choice (map char specialChars) -- Parse any of the special chars.
   return (Unit [escapedChar])
 
+-- Parse a character as a Unit.
+parseUnit :: ReadP MdToken
+parseUnit = do
+  text <- satisfy (`notElem` specialChars)
+  return (Unit [text])
+
 -- Parse a regular string as a Unit.
 parseString :: ReadP MdToken
 parseString = do