print substr("WB"x99,++$y+/W/,$_),$/for($_=<>)x$'**/ /