-------------------------------------

evalStr :: String -> Maybe Integer
evalStr s = fmap eval (parseExp Lit Add Mul s)
evalStr :: String -> Maybe Integer
evalStr s = fmap eval (parseExp Lit Add Mul s)
evalStr s = fmap eval (parseExp Lit Add Mul s)