Code to compute fast the Prompte Rate by counting in the MC