printf"%*s\n",$_+$h,join"",qw(* 0 @ + =)[map$_?rand>$f?4:rand 4:0,$_..$_*3]for 0..$h-1