program ooo;
var
i,j,k,n,m,min:longint;
a:array[1..100,1..100] of longint;
t:text;
procedure oo(d,r,o:longint);
var
i,j,k:longint;
begin
if (d=n)and(m=r) then
 begin
  if (o>0)and(o<min) then min:=o;
  exit;
 end;
if d+1<=n then oo(d+1,r,o+a[d+1,r]);
if r+1<=m then oo(d,r+1,o+a[d,r+1]);
end;
begin
min:=maxlongint;
assign(t,'number.in');
reset(t);
readln(t,n,m);
for i:=1 to n do
 begin
  for j:=1 to m do
   read(t,a[i,j]);
  readln(t);
 end;
close(t);
oo(1,1,a[1,1]);
assign(t,'number.out');
rewrite(t);
write(t,min);
close(t);
end.