calcFunc (EOrd (EVar v))  = do exp <- calcExp (EVar v)
                               calcFunc (EOrd exp)
calcFunc (EOrd (EVar v))  = do exp <- calcExp (EVar v)
                               calcFunc (EOrd exp)
calcFunc (EOrd (EVar v))  = do exp <- calcExp (EVar v)
                               calcFunc (EOrd exp)