t <- 0; s <- 0
dadi <- sum(floor(runif(2)*6)+1); t <- t+1; if(dadi>7) s <- s+1; write(c(t,s/t),file="")
# o:   dadi <- sum(floor(runif(2,min=1,max=7))); t <- t+1; ...
1  1
dadi <- sum(floor(runif(2)*6)+1); t <- t+1; if (dadi>7) s <- s+1; write(c(t,s/t),file="")
2  1
dadi <- sum(floor(runif(2)*6)+1); t <- t+1; if (dadi>7) s <- s+1; write(c(t,s/t),file="")
3  1
# eccetera, ricaricando col tasto freccia-su il comando precedente
# ...
50  0.46
# ...
100  0.41
# ...
200  0.425