Implement R REDUCE opcode