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