Pr <- temp