100135D

var i,j:longint;a,ans:array[0..10,0..10] of longint;

function min(i,j,k:longint):longint;
begin
if i>j then i:=j;
if i>k then i:=k;
min:=i;
end;

begin
assign(input,'king2.in');reset(input);
assign(output,'king2.out');rewrite(output);
  for i:=8 downto 1 do
    for j:=1 to 8 do read(a[i][j]);

 for i:=0 to 9 do
 begin
     for j:=0 to 9 do
     ans[i][j]:=1000000000;
 end;
 ans[1][1]:=a[1][1];
for i:=1 to 8 do
begin
  for j:=1 to 8 do
  begin
   if ( ans[i+1][j] > a[i+1][j]+ans[i][j]) then ans[i+1][j]:=a[i+1][j]+ans[i][j];
   if ( ans[i][j+1] > a[i][j+1]+ans[i][j]) then ans[i][j+1]:=a[i][j+1]+ans[i][j];
   if ( ans[i+1][j+1] > a[i+1][j+1]+ans[i][j]) then ans[i+1][j+1]:=a[i+1][j+1]+ans[i][j];
  end;
 end;
 writeln(ans[8][8]);
end.