calcFunc (ELen (EArrI a))= return $ EInt (toInteger $ range_ $ bounds a)
  where
    range_ bounds = (snd bounds) - (fst bounds) + 1
calcFunc (ELen (EArrI a))= return $ EInt (toInteger $ range_ $ bounds a)
  where
    range_ bounds = (snd bounds) - (fst bounds) + 1
calcFunc (ELen (EArrI a))= return $ EInt (toInteger $ range_ $ bounds a)
  where
    range_ bounds = (snd bounds) - (fst bounds) + 1