var
  s1,s2,s3 : string;
  d1,d2 : longint;
begin
  readln(s1);
  d1:=length(s1);
  s2:=copy(s1,1,2);
  s3:=copy(s1,d1-2+1,2);
  d2:=length(s3);
  delete(s1,1,2);
  delete(s1,d1-d2+1,d2);
  writeln(s1);
  writeln(s2,' ',s3);
end.