label 0,1;var
a,x:array[0..15]of string;i,j,s:word;begin
a[15]:='##########';for i:=0to 14do
begin ReadLn(a[i]);x[i]:='          'end;for i:=0to 3do for j:=1to 10do
if'#'=a[i][j]then
begin a[i][j]:=' ';x[i][j]:='#'end;s:=0;repeat
for i:=0to 3do
for j:=1to 10do
if(a[i+s+1][j]='#')and(x[i][j]='#')then goto 0;Inc(s);until
0=1;0:for i:=0to 14do
for j:=1to 10do
if'#'=x[i][j]then a[i+s][j]:='#';for
i:=0to 14do
begin
for j:=1to 10do if' '=a[i][j]then goto 1;for
j:=i downto 1do a[j]:=a[j-1];1:end;
for i:=0to 14do WriteLn(a[i])end.