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

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