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.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).