handleFunc :: Exp -> [Exp] -> MRSIO Exp
handleFunc (EProc decls stmts env) params = do {
    new_env <- handleParams decls params env;
    exp <- runBlock new_env interpretStmts stmts;
    return Null;
  }
handleFunc :: Exp -> [Exp] -> MRSIO Exp
handleFunc (EProc decls stmts env) params = do {
    new_env <- handleParams decls params env;
    exp <- runBlock new_env interpretStmts stmts;
    return Null;
  }
handleFunc (EProc decls stmts env) params = do {
    new_env <- handleParams decls params env;
    exp <- runBlock new_env interpretStmts stmts;
    return Null;
  }