integer::W,H,i,offset = 1
  character::C
  character*101::str='BWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWBWB'
  read *,W,H,C

  if(C.eq.'W') offset = 2
  do i=offset, H+offset-1
     print '(a)', str(i:i+W-1)
  end do
end program