calcFunc :: EExp -> MRSIO EExp
calcFunc (ELen (EStr s))  = return $ EInt (toInteger $ length s)
calcFunc :: EExp -> MRSIO EExp
calcFunc (ELen (EStr s))  = return $ EInt (toInteger $ length s)
calcFunc (ELen (EStr s))  = return $ EInt (toInteger $ length s)