for$i(@a=1..12){printf"%3d "x11 ."%3d ",map$i*$_,@a}