print$.+(map{(1)x$_}/./g),":\n",dice()for join$,,map$_+1,map
{$_%6,0|$_/6}rand 36;sub dice{@d=/./g;$:=$".'-'x9;join$/,$:x
@d,(map{$s=$_;join$,,map{$d=$_;$_=$s;$d&1&&s/0/ @/;s/0/  /;s
/\d/$&<$d?' @':'  '/ge;" |$_ |"}@c=@d}173,505,371),$:x@d,''}