program koba;
var f,g:text;
    n,t1,t2,t3,aux,s,i,t,c,j:longint;
    v:array[1..100000000]of longint;
begin
assign(f,'koba.in');
assign(g,'koba.out');
reset(f);
rewrite(g);
read(f,n,t1,t2,t3);
t1:=t1 mod 10;
t2:=t2 mod 10;
t3:=t3 mod 10;
s:=t1+T2+T3;
v[1]:=t1;
v[2]:=t2;
v[3]:=t3;
for i:=4 to n do
  begin
    t:=t3+(t2*t1);
    t:=t mod 10;
    s:=s+t;
    v[i]:=t;
    aux:=t3;
    t3:=t;
    t1:=t2;
    t2:=aux;
    if (v[i-2]=v[1])and(v[i-1]=v[2])and(t3=v[3])then
      break;
  end;
if (i<n)then
  begin
    c:=n div i;
    s:=s*c;
    c:=n mod i;
    for j:=1 to c do
      s:=s+v[j];
  end;
write(g,s);
close(f);
close(g);
end.