$a[int(rand(6) + 1)]++} for 0 .. 5999;
print "side $_: $a[$_]\n" for 1..6;