expr : expr expr binop { [ BINOP => [ $item[3], $item[1], $item[2] ] ] } | term