program coffee;

Type
 mnog= set of byte;

Const
 A:mnog=[65 .. 90];
 B:mnog=[97 .. 122];

var
 S:string;
 C:Char;
 f1,f2:text;

function Inversion(Si:string):string;
var
 P:String;
 M:mnog;
 j,q:byte;
begin
 If Length(Si)<4 then Inversion:=Si else
  begin
   M:=[];
   P:=Si[1];
   j:=0;
   repeat
    q:=2+Random(Length(Si)-2);
    if not (q in M) then
     begin
      Inc(j);
      P:=P+Si[q];
      M:=M+[q];
     end;
   until j=Length(Si)-2;
   P:=P+Si[Length(Si)];
   Inversion:=P;
  end;
end;

begin
  assign(f1, 'Input.txt');
  reset(f1);
  assign(f2, 'Output.txt');
  rewrite(f2);
  Randomize;
  While not EoF(f1) do
   begin
    S:='';
    repeat
     read(f1,C);
    until (Ord(C) in (A+B)) or EoF(f1);
    if not EoF(f1) then
     begin
      S:=S+C;
      repeat
       read(f1,C);
       if (Ord(C) in (A+B)) then S:=S+C;
      until not (Ord(C) in (A+B)) or EoF(f1);
      writeln(f2,S,' ',Inversion(S));
     end;
   end;
  close(f1);
  close(f2);
end.