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