store :: Parser Insn
store = do { addr <- lexeme mem
           ; lexeme (char' '=')
           ; e <- expr
           ; return $ Store addr e
           }
     <?> "store"
store :: Parser Insn
store = do { addr <- lexeme mem
           ; lexeme (char' '=')
           ; e <- expr
           ; return $ Store addr e
           }
     <?> "store"
store = do { addr <- lexeme mem
           ; lexeme (char' '=')
           ; e <- expr
           ; return $ Store addr e
           }
     <?> "store"