iDecl [] stm = do exp <- interpretStmts stm
                  env <- askEnv
                  return (env, exp)
iDecl [] stm = do exp <- interpretStmts stm
                  env <- askEnv
                  return (env, exp)
iDecl [] stm = do exp <- interpretStmts stm
                  env <- askEnv
                  return (env, exp)