var
  a : array [1..100,1..100] of longint;
  i,j,sum,n : longint;
begin
  readln(n);
  for i:=1 to 4 do
    for j:=1 to n do
      read(a[i,j]);
  for i:=1 to 4 do
    sum:=sum+a[i,4];
  writeln(sum);
end.