/COVUA2 - Bàn cờ vua 2

              Uses Crt;
        Var n,i,kt1,kt2,j:longint;
        Begin
            readln(n);
            kt1:=0;
            for i:=1 to n*3 do begin
            if ((i-1) mod 3=0) and (i-1<>0) then
            if (kt1=1) then kt1:=0 else kt1:=1;
            kt2:=kt1;
            for j:=1 to n*3 do
            begin
                if ((j-1) mod 3=0) and (j-1<>0) then
                if (kt2=0) then kt2:=1 else kt2:=0;
                if kt2=0 then write('W') else write('B');
            end;
            writeln;
            end;
            readln;
        End.