########################################### %left OPADD %left OPMULT %% expr: add | mult | NUM; add: expr OPADD expr { return $_[1] + $_[3] }; mult: expr OPMULT expr { return $_[1] * $_[3] }; %%