$a[int(rand(6) + 1)]++ for 0 .. 5999;