put back in R[2]++