program vijos1139;

type rec=record

h,l:longint; end;

var m,n,i,j,x,y :longint;

min :int64;

a,f :array[0..100,0..500]of int64;

pre :array[0..100,0..500]of rec;

qu :array[0..500]of longint;

begin

readln(m,n);

for i:=1 to m do

for j:=1 to n do read(a);

for i:=1 to n do f[1,i]:=a[1,i];

for i:=2 to m do

begin

for j:=1 to n do

begin

min:=maxlongint;

if (f1)and(f