print"\ec";$_=($t=1x32 .$/).((1 .2x30 ."1\n")x15).$t;s/2/0|rand 2/ge;
s/(?<=(...)\H{30}(.)).(?=(.)\H{30}(...))/substr"11$&0".1x5,
"$1$2$3$4"=~tr|0||,1/ge,select$q,$q,$q,.1while print"\e[H",y/1/ /r