var
  a : array [1..4,1..4] of longint;
  b : array [1..4] of longint;
  i,j,min,sum : longint;
begin
  for i:=1 to 4 do
    for j:=1 to 4 do
       read(a[i,j]);
  for i:=1 to 4 do begin
    b[i]:=0;
    for j:=1 to 4 do b[i]:=b[i]+a[j,i];
     min:=a[1,j];
     for j:=1 to 4 do
       if min>a[j,i] then
         min:=a[j,i];
       sum:=sum+min;
  end;
  write(sum);
end.