map{$_=reverse if$s=$$>>$i++&2;$i%2?$x:$y+=1-$s,$a[$y+7]|=$"x($x+8).$_ for/./g}<>;print uc,$/for@a