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