Uses CRT;
VAR
 C:Array[1..10000] of Char;
 i,N:Word;
 Ch:Char;
 f:Text;
 b:boolean;
BEGIN
 ClrScr;
 Assign(f,'D:\text.txt');
 ReSet(f);
 Repeat
  N:=0;
  b:=true;
  repeat
   Inc(N);
   Read(f,Ch);
   C[N]:=Ch;
   If Ch=',' then b:=false;
  until (Ch='.') or (Ch='?') or (Ch='!') or (EoF(f));
  If b then
   begin
    For i:=1 to N do Write(C[i]);
    Writeln;
   end;
 Until EoF(f);
 Close(f);
 Readln
END.