++$b,printf"@a
",map$_*$b,1..12for@a=('%3d')x12