program bukva_k;
uses crt;
const max=20;
var f        :text;
    str      :string;
    i,j,i_max:integer;
    mas:array [1..max] of string;
begin
   assign (f, 'c:\a.txt');
   reset (f);
   i:=1;
   while (not EOF(f)) do
      begin
	 readln (f,mas[i]);
	 for j:=1 to length(mas[i]) do
	    begin
	       if (j=1) and (mas[i][j]='k') then mas[i][j]:='K'
	       else if (mas[i][j]=' ') and (mas[i][j+1]='k') then mas[i][j+1]:='K';
	    end;
      i_max:=i;
      i:=i+1;
      end;
   for i:=1 to i_max do writeln(mas[i]);
   close(f);
end.