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