Var
 f:Text;
 S,S1:String;
 i:Integer;

Begin
 Assign(f,'ttt.txt');
 Reset(f);
 S:='';
 Repeat
  Readln(f,S1);
  for i:=1 to Length(S1) do S:=S+S1[i];
  if Not(EoF(f)) then S:=S+' ';
 Until EoF(f);
 Close(f);
 Writeln(S);
 ReadLn
End.