10 K = 0
20 FOR X = 1 TO 100000
30  IF RND(1) < 0.5 THEN K = K+1
40 IF INT(X/1000) = X/1000 THEN PRINT K/X,
50 NEXT X
60 END