var i1,i2,i:integer;
    s1,s2,s:string;
    c:char;
    d:integer;
    p:array[1..8,1..8] of char;

begin
for i1:=1 to 8 do
  for i2:=1 to 8 do
    if ((i1+i2) mod 2) = 1 then p[i1,i2]:='.'
      else p[i1,i2]:=':';
readln(s1);
readln(s2);
d:=length(s1);
i:=7;
//writeln(s1);
//writeln(s2);
s:=s1;
while i<d do
  begin
  inc(i);
  c:=s[i];
  if (c='K') or (c='Q') or (c='R') or (c='B') or (c='N') then
    begin
    p[ord(s[i+1])-ord('a')+1,ord(s[i+2])-ord('0')]:=c;
    i:=i+3;
    end else
    begin
    p[ord(s[i])-ord('a')+1,ord(s[i+1])-ord('0')]:='P';
    i:=i+2;
    end;
  end;
d:=length(s2);
i:=8;
s:=s2;
//i:=d;
//writeln('tuuu');
//writeln(d);
while i<d do
  begin
  c:=s[i];
  if (c='K') or (c='Q') or (c='R') or (c='B') or (c='N') then
    begin
    p[ord(s[i+1])-ord('a')+1,ord(s[i+2])-ord('0')]:=chr(ord(c)-ord('A')+ord('a'));
    i:=i+3;
    end else
    begin
    p[ord(s[i])-ord('a')+1,ord(s[i+1])-ord('0')]:='p';
    i:=i+2;
    end;
  inc(i);    
  end;

//writeln('tu');  
for i2:=8 downto 1 do
  begin
  writeln('+---+---+---+---+---+---+---+---+');
  for i1:=1 to 8 do
    begin
    write('|');
    if ((i1+i2) mod 2)=1 then c:='.'
      else c:=':';
    write(c);
    write(p[i1,i2]);
    write(c);  
    end;
  writeln('|');    
  end;
writeln('+---+---+---+---+---+---+---+---+');
  
end.