let delete nb = cpt_delete := nb + !cpt_delete