program h;


var plocha[1..8, 1..8]  of char;

procedure spracuj;
var i, j: integer;
begin
	for i:=1 to 8 do begin
		for j:=1 to 8 do begin
		
		end;
	end;
end;

procedure nacitaj;
var vstup: string[50];
    i: integer;
begin
	readln(vstup);
	for i:=1 to 8 do begin
		readln(vstup);
		j:=3;
		while j< 31 do
			plocha[i, j div 4 + 1] := vstup[j];
			j:=j+4;
		end;
	end;
end;

procedure vykresli;
var i,j: integer;
begin
	for i:=1 to 8 do begin
		for j:=1 to 8 do begin
			write(plocha[i,j], ' ');
		end;
		writeln;
	end;
end;

begin
	nacitaj;
	vykresli;
end.