($h,$f)=@_;print' 'x(--$h).($_==1?'*':join'',map{rand>$f?'=':qw(* 0 @ +)[rand 4]}1..$_*2-1)."\n"for 1..$h