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