intFromEInt :: EExp -> MRSIO Int
intFromEInt i = do int <- calcInt i
                   return $ fromIntegral $ int
intFromEInt :: EExp -> MRSIO Int
intFromEInt i = do int <- calcInt i
                   return $ fromIntegral $ int
intFromEInt i = do int <- calcInt i
                   return $ fromIntegral $ int