calcExpInt :: EExp -> MRSIO EExp
calcExpInt exp = do int <- calcInt exp
                    return $ EInt $ toInteger int
calcExpInt :: EExp -> MRSIO EExp
calcExpInt exp = do int <- calcInt exp
                    return $ EInt $ toInteger int
calcExpInt exp = do int <- calcInt exp
                    return $ EInt $ toInteger int