DouKaku?

BEGIN {
	srand
}

{
	n = $1

	bingo(n,ar)
	show(n,ar)
}

function show(n,ar, i,j,k,s1,s2)
{
	s1 = s2 = ""
	k = length(n)

	for (i=1; i<=n; i++) {
		s1 = s1 sprintf(" %"k"d", i+j)
		s2 = s2 sprintf(" %"k"d", ar[i+j])
		if (i % 10 == 0) {
			print s1
			print s2
			print ""
			s1 = s2 = ""
		}
	}
	if (s1 !~ /^$/) { # n % 10 > 0
		print s1
		print s2
		print ""
	}
}

function rand_between_1_and_n(n, x)
{
	x = 1 + int(rand * n)
	return (x <= n)? x : rand_between_1_and_n(n)
}

function bingo(n,ar,  i,x,y,t)
{
	delete ar;
	for (i=1; i<=n; i++) ar[i] = i

	for (i=n*2; i>0; i--) {
		x = rand_between_1_and_n(n)
		y = rand_between_1_and_n(n)
		if (x == y) continue

		t = ar[x] ; ar[x] = ar[y] ; ar[y] = t
	}
}