$_=q%$_=" 88GGCI"; @a=/./g;@_=('IP ""YI','IjjjjI', 'IiciII') ;whil e($c=pop@ a){ma p{$_=$c.$_ .$c}@_ ;@_=(($t=( $n=$a[ $#a]||"@").$ {c}x(- 2+length$_[0]).$n),@_, $t)}$_='j8_4xj4,@@8b,x j2,@14bxjd@16bxd@18bx@ 20x@20x@20xY@18PxjY@16 Pxj`Y@14Pxj4`@10Pxj8"5 x';s#(.)(\d*)#$1x($2|| 1)#eg;$m=2;$n=-1;$|=1; $p=9;$q=20;{$q+=$n*= $q<11|$q>50?-1:1;$p+ =$m*=$p<8|$p>16?-1 :1;$u=-$q*6/($l=($ q**2+$p**2)**.5 );$v=-2-$p*6/$l; $r=$p-6;$ s=$q-9;$y=0 ;select$x ,$x,$x,.2*print "\ec*",(m ap{$l =0;"\e[".$ r++."; ${s}H",$y++<$v?$_:do{@ c=split//,$_[$y-$v-1]; map{$l++>$u&/@/&&($t=$ c[$l-$u-2])?$t:$_}/./g },$/}splitjx),"\e[30 H";redo}%;s#\s##g; s#j#$"#g;eval