program emag;
var
  chess: array[1..8,1..8] of char;
  S: string;
  N,I,j: integer;
  col: string;

procedure draw(s:string; col: string);
var
  empty: char;
  i: integer;
  pc: char;
  x,y: byte;
begin
  if (col='White') then empty:='.' else empty:=':';
  i:=1;
  while (i<=length(s)) do
    begin
      if (s[i]>='A') and (s[i]<='Z') then
        begin
	  if (col='White') then pc:=s[i] else pc:=chr(ord(s[i])+32);
	  x:=ord(s[i+1])-ord('a')+1;
 	  y:=ord(s[i+2])-ord('0');
	  i:=i+4;
	end else 
	    begin
	     if (Col='White') then pc:='P' else pc:='p';
	     x:=ord(s[i])-ord('a')+1;
	     y:=ord(s[i+1])-ord('0');
	     i:=i+3;
	    end;
      chess[x,y]:=pc;
      { writeln('adding [',x,',',y,'] as ', pc); }
    end; 
end;

procedure view;
var
  i,j: integer;
  e: char;
begin
  Writeln('+---+---+---+---+---+---+---+---+');
  for i:=1 to 8 do 
    begin
     Write('|');
     for j:=1 to 8 do 
       begin
         if (i+j) mod 2 = 0 then e:='.' else e:=':';
	 write(e); 
	 if (chess[j,9-i]='.') then chess[j,9-i]:=e;
	 write(chess[j,9-i]); 
	 write(e); 
	 write('|');
       end;
     writeln;
     Writeln('+---+---+---+---+---+---+---+---+');
    end;
end;

begin
  { white }
  for i:=1 to 8 do for j:=1 to 8 do chess[i,j]:='.';
  
  for i:=1 to 2 do 
    begin
      readln(S);
      col:=copy(s,1,5);
      S:=copy(s, 8, length(s)-6);
      draw(s, col);
    end;
   view;
end.