Const m=[' ','.','!','?'];
Var s,s1,s2:string;
    A:array[1..50] of string;
    f,g:text;
    i,k:byte;
Function Fun(s:string;k:byte):boolean;
Var i:byte;
    b:boolean;
Begin
    b:=true;
    For i:=1 to k do
     if A[i]=s then b:=false;
    Fun:=b;
End;
Begin
    Assign(f,'input.txt');
    Reset(f);
    Assign(g,'output.txt');
    Rewrite(g);
    k:=0;
    While not Eof(f) do
    Begin
      readln(f,s);
      s:=s+' '; s1:=''; s2:='';
      For i:=1 to Length(s) do
       if not(s[i] in m) then s1:=s1+s[i]
        else
        Begin
          if Fun(s1,k) then
          Begin
            s2:=s2+s1+s[i];
            inc(k);
            A[k]:=s1;
          End;
          s1:='';
        End;
      if s2<>'' then writeln(g,s2);
    End;
    writeln('Готово!');
    Close(f);Close(g);
    readln;
End.