var s:array[byte]of string;i,j,a,b,c,d:word;begin
b:=9;d:=99;repeat inc(i);readln(s[i]);for j:=1to 30do
if^`<s[i][j]then begin a:=max(a,i);b:=min(b,i);c:=max(c,j);d:=min(d,j)end;until
eof;for i:=b to a do writeln(s[i][d..c])end.