> m=rep(" ",33);for(i in 1:6){n=ifelse(m=="=",m,sample(c(" ","="),33,T,c(6-i,i)));m=n;cat(n,"\n",sep="")}
= = = = =
= = == = = = == == == = =
= == == = = = == == ========
= == === === = ================
=================================
=================================
> m=rep(" ",33);for(i in 1:6){n=ifelse(m=="=",m,sample(c(" ","="),33,T,c(6-i,i)));m=n;cat(n,"\n",sep="")}
= = = = =
== = === == === = ===
==== = ======= === = ======= ===