Function OddWord(S : String) : String;
Var
 Sodd,ss      : String;
 DelFlag      : Boolean;
Begin
 DelFlag:=False;
 ss:=s;
 Sodd:='';
 While Length(ss)>0 do
 Begin
   If ss[1]=' ' then
   Begin
     Sodd:=Sodd+ss[1];
     Delete(ss,1,1)
   End
     else
   Begin
     While (ss[1]<>' ') and (Length(ss)<>0) do
     Begin
       If not DelFlag then Sodd:=Sodd+ss[1];
       Delete(ss,1,1);
     End;
     DelFlag:= not DelFlag;
   End;
 End;
 OddWord:=Sodd;
End;

Var f0,f : Text;
   St : String;
Begin
 Assign(f0,ParamStr(1));
 Assign(f,ParamStr(2));
 Reset(f0);ReWrite(f);
 While not EOF(f0) do
 Begin
   Readln(f0,St);
   Writeln(f,OddWord(St));
 End;
 Close(f);Close(f0);
End.