INITIALIZE R 2 0
U TENSOR HAD ID
APPLY U R
APPLY CNOT R
PEEK R RES