print$"x--$h,qw(* 0 @ + =)[map$_?rand>$f?4:rand 4:0,$_..$_*3],$/for 0..$h-1

##</code><code>##

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