var i,j,i1,i2,d:integer;
    p:array[1..8,1..8] of char;
    s,s1,s2:string;
    dd:integer;
    c:char;
    
    
begin
d:=0;
for i2:=8 downto 1 do
  begin
  readln(s);
  readln(s);
  for i1:=1 to 8 do
    begin 
    p[i1,i2]:=s[4*i1-1];
    if (s[4*i1-1]<>':') and (s[4*i1-1]<>'.') then
      inc(d);

    end;
  end;
s1:='White: ';
s2:='Black: ';

  for i2:=1 to 8 do
    for i1:=1 to 8 do
      if p[i1,i2]='K' then 
        begin
	s1:=s1+'K'+chr(ord('a')+i1-1)+chr(ord('0')+i2)+',';
	dec(d);
	end;
  for i2:=1 to 8 do
    for i1:=1 to 8 do
      if p[i1,i2]='Q' then 
        begin
	s1:=s1+'Q'+chr(ord('a')+i1-1)+chr(ord('0')+i2)+',';
	dec(d);
	end;
  for i2:=1 to 8 do
    for i1:=1 to 8 do
      if p[i1,i2]='R' then 
        begin
	s1:=s1+'R'+chr(ord('a')+i1-1)+chr(ord('0')+i2)+',';
	dec(d);
	end;
  for i2:=1 to 8 do
    for i1:=1 to 8 do
      if p[i1,i2]='B' then 
        begin
	s1:=s1+'B'+chr(ord('a')+i1-1)+chr(ord('0')+i2)+',';
	dec(d);
	end;
  for i2:=1 to 8 do
    for i1:=1 to 8 do
      if p[i1,i2]='N' then 
        begin
	s1:=s1+'N'+chr(ord('a')+i1-1)+chr(ord('0')+i2)+',';
	dec(d);
	end;
  for i2:=1 to 8 do
    for i1:=1 to 8 do
      if p[i1,i2]='P' then 
        begin
	s1:=s1+chr(ord('a')+i1-1)+chr(ord('0')+i2)+',';
	dec(d);
	end;
		
  for i2:=8 downto 1 do
    for i1:=1 to 8 do
      if p[i1,i2]='k' then 
        begin
	s2:=s2+'K'+chr(ord('a')+i1-1)+chr(ord('0')+i2)+',';
	dec(d);
	end;
  for i2:=8 downto 1 do
    for i1:=1 to 8 do
      if p[i1,i2]='q' then 
        begin
	s2:=s2+'Q'+chr(ord('a')+i1-1)+chr(ord('0')+i2)+',';
	dec(d);
	end;
  for i2:=8 downto 1 do
    for i1:=1 to 8 do
      if p[i1,i2]='r' then 
        begin
	s2:=s2+'R'+chr(ord('a')+i1-1)+chr(ord('0')+i2)+',';
	dec(d);
	end;
  for i2:=8 downto 1 do
    for i1:=1 to 8 do
      if p[i1,i2]='b' then 
        begin
	s2:=s2+'B'+chr(ord('a')+i1-1)+chr(ord('0')+i2)+',';
	dec(d);
	end;
  for i2:=8 downto 1 do
    for i1:=1 to 8 do
      if p[i1,i2]='n' then 
        begin
	s2:=s2+'N'+chr(ord('a')+i1-1)+chr(ord('0')+i2)+',';
	dec(d);
	end;
  for i2:=8 downto 1 do
    for i1:=1 to 8 do
      if p[i1,i2]='p' then 
        begin
	s2:=s2+chr(ord('a')+i1-1)+chr(ord('0')+i2)+',';
	dec(d);
	end;	

delete(s2,length(s2),1);
delete(s1,length(s1),1);
writeln(s1);
writeln(s2);


end.