Select Code to Download

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