program reverse;
var
 a:array[0..1001]of boolean;
 b:array[0..1001]of integer; 
 f,f1:text;
 i,j,x,y,maxx,k:integer;
 ch:char;
begin
 Assign(f,'reverse.in');
 Assign(f1,'reverse.out');
 Reset(f);
 Rewrite(f1);
 x:=0;
 y:=1;
 maxx:=0;
 Repeat
  Read(f,ch);
  if eoln(f) then
   Begin
    if x>maxx then maxx:=x+1;
    b[y]:=x+1;
    Readln(f);
    y:=y+1;
    x:=0;
   End else
    if (ch='*') or (ch=' ') then x:=x+1;
  Until eof(f);
 y:=y-1;
 close(f);
 reset(f);
 for i:=1 to y do
  Begin
   k:=10000;
   for j:=1 to b[i] do
    Begin
     read(f,ch);
     if ch='*' then
      begin
       if j<k then k:=j;
       a[j]:=true;
      end else a[j]:=false;
    end;
   for j:=B[i]+1 to maxx do
   begin
    a[j]:=false;
   end;
   for j:=maxx downto k do
    begin
     if a[j] then write(f1,'*') else write(f1,' ');
    end;
   if i<y then
   Begin
   Readln(f);
   writeln(f1);
   End;
  End;
 close(f1);
end.