one-true-awk/testdir/p.48b

*23f24377SWarner LoshBEGIN	{ k = 3; n = 10 }
*23f24377SWarner Losh{	if (n <= 0) exit
*23f24377SWarner Losh	if (rand() <= k/n) { print; k-- }
*23f24377SWarner Losh	n--
*23f24377SWarner Losh}