asst :: Parser Insn
asst = do { v <- lexeme var
          ; lexeme (char' '=')
          ; e <- expr
          ; return $ Assign v e
          }
    <?> "asst"
asst :: Parser Insn
asst = do { v <- lexeme var
          ; lexeme (char' '=')
          ; e <- expr
          ; return $ Assign v e
          }
    <?> "asst"
asst = do { v <- lexeme var
          ; lexeme (char' '=')
          ; e <- expr
          ; return $ Assign v e
          }
    <?> "asst"