#module
#deffunc bingo int n
	dim dest, n
	repeat n
		dest.cnt = cnt+1
	loop
	repeat n
		r = rnd( n - cnt ) + cnt
		tmp = dest.r
		dest.r = dest.cnt
		dest.cnt = tmp
	loop
	buf = ""
	repeat n
		if ( cnt > 0 ) {
			buf += " "
		}
		buf += str( dest.cnt )
	loop
	mes buf
	return
#global
randomize
bingo 10
bingo 3
bingo 3
bingo 10