-- | Parse an alphanumeric character.
alphaNum :: Stream s Char =>  Parser s Char
alphaNum = satisfy isAlphaNum
alphaNum :: Stream s Char =>  Parser s Char
alphaNum = satisfy isAlphaNum
alphaNum = satisfy isAlphaNum