p<-1/2
male=0;female=0;
n=100000000;
for (i in 1:n){
    repeat{
        female=female+1;
        if (runif(1,min=0,max=1)>p){
        male=male+1;
        break
        }
    }
}
male/female