pascal

program pivooo;
 
var
  k,i:integer;
  s:string;
 
begin
  readln(s);
  k:=length(s);
  if k>5 then
    s:=Copy(s,0,5)
  else
     begin
       for i:=5 downto k+1 do s:=s+'k';
     end;
  writeln(s);
end.