var a,b,c,d:array[1..1000000] of int64;
n:int64;
i:Longint;
begin
read(n);
read(a[1],b[1],c[1],d[1]);
for i:=1 to n-1 Do
begin
a[i+1]:=a[i]+b[i];
b[i+1]:=b[i]+c[i];
c[i+1]:=c[i]+d[i];
d[i+1]:=d[i]+a[i];
end;
write(a[n]+b[n]+c[n]+d[n]);
end.