Scanf.scanf "%d %d %c" (fun w h c ->
    let d = if c = 'B' then "BW" else "WB" in
    for i = 1 to h do
        for j = 1 to w do
            print_char d.[(i + j) mod 2]
        done;
        print_newline ()
    done
)