program number;
const
fin='number.in';
fou='number.out';
var
f:array[1..10,1..10]of longint;
a:array[1..10,1..10]of longint;
x,y,i,j,n,m:longint;
f1,f2:text;


procedure init;
begin
assign(f1,fin);
assign(f2,fou);
reset(f1);
rewrite(f2);
read(f1,n,m);
for i:=1 to n do
for j:=1 to m do
read(f1,a[i,j]);
f[1,1]:=a[1,1];
for i:=2 to m do
 f[1,i]:=f[1,i-1]+a[1,i];
for i:=2 to n do
 f[i,1]:=f[i-1,1]+a[i,1];
end;

function min(x,y:longint):longint;
begin
if x<y then exit(x) else exit(y);
end;

begin
init;
for i:=2 to n do
for j:=2 to m do
f[i,j]:=min(f[i-1,j],f[i,j-1])+a[i,j];
write(f2,f[n,m]);
close(f1); close(f2);
end.