Count down timer and restart on R