var
s,s2: string;
k,i,l,Ls,j: longint;
a: boolean;
begin
 repeat
 s:='';
 s2:='';
 k:=1;
 j:=0;
 readln(s2);
 s:=s2;
 Ls:=length(s2);
if (Ls>0) and (s<>' ') then
  repeat
  if (k-1)<=Ls then begin
  a:=false;
  l:=k;
           repeat
           if ((s[k]<='z') and (s[k]>='a')) or ((s[k]<='Z') and (s[k]
>='A')) or (s[k]='-') then k:=k+1 else a:=true;
           until a or (k>Ls);

      for i:=k-1 downto l do
      begin
      if s[i]<>'-' then begin j:=j+1; write(s[i]);  end;
      end;

if j<Ls then begin
      repeat
      write(s[k]);
      j:=j+1;
      k:=k+1;
      until ((s[k]<='z') and (s[k]>='a')) or ((s[k]<='Z') and (s[k]
>='A')) or (j>=Ls);
                      end; end;

  until k>=Ls;
until eof;
end.

> var
> s,s2: string;
> k,i,l,Ls,j: longint;
> a: boolean;
> begin
>  repeat
>  s:='';
>  s2:='';
>  k:=1;
>  j:=0;
>  readln(s2);
>  s:=s2;
>  Ls:=length(s2);
> if (Ls>0) and (s<>' ') then
>   repeat
>   if (k-1)<=Ls then begin
>   a:=false;
>   l:=k;
>            repeat
>            if ((s[k]<='z') and (s[k]>='a')) or ((s[k]<='Z') and (s
[k]
> >='A')) or (s[k]='-') then k:=k+1 else a:=true;
>            until a or (k>Ls);
>
>       for i:=k-1 downto l do
>       begin
>       if s[i]<>'-' then begin j:=j+1; write(s[i]);  end;
>       end;
>
> if j<Ls then begin
>       repeat
>       write(s[k]);
>       j:=j+1;
>       k:=k+1;
>       until ((s[k]<='z') and (s[k]>='a')) or ((s[k]<='Z') and (s[k]
> >='A')) or (j>=Ls);
>                       end; end;
>
>   until k>=Ls;
> until eof;
> end.