ated with 'Expected' constructor that tells
-- the system that character @s@ is expected.

exCh :: Char -> Message
exCh s = Expected $ showToken s

-- | @exStr s@ returns message 
exCh :: Char -> Message
exCh s = Expected $ showToken s
exCh s = Expected $ showToken s