$_=<>;for$y(/ /..$'){print map($_+$y&1?W:B,/B/..$_-/W/),$/}