var a:array[1..100000] of longint;
f,g:text;
n,i,j,s:longint;
nr:int64;
begin
assign(f,'koba.in');
assign(g,'koba.out');
reset(f);
rewrite(g);
read(f,n,a[1],a[2],a[3]);
i:=4;
a[1]:=a[1] mod 10;
a[2]:=a[2] mod 10;
a[3]:=a[3] mod 10;
a[4]:=(a[3]+a[2]*a[1]) mod 10;
s:=a[1]+a[2]+a[3];
i:=4;
while (not ((a[i]=a[3]) and (a[i-1]=a[2]) and (a[i-2]=a[1]))) and (i<n) do begin
   s:=s+a[i];
   inc(i);
   a[i]:=(a[i-1]+a[i-2]*a[i-3]) mod 10;
   end;
dec(i);
if i=n-1 then nr:=s+a[n] else begin
nr:=s*(n div i);
for j:=1 to n mod i do
   nr:=nr+a[j];
end;
writeln(g,nr);
close(f);
close(g);
end.