parseFactor :: [Token] -> Maybe (Exp, [Token])
parseFactor ((TInt s):xs) = Just ((Numar (read s :: Int)), xs)
parseFactor _ = Nothing