var
  d1,d2,d3,d4,d5,d6 : longint;
  s1,s2,s3,s4,s5,s6 : string;
  c1,c2,c3,c4,c5,c6 : char;
begin
  readln(s1);
  d2:=length(s1);
  writeln(copy(s1,d1,d1),' ',s1);
  delete(s2,d2-1,1),' ',s2;
end.