var v:array[1..10000]of longint;
    a,b,c,d,i,k,l,n,j:longint;
    s:int64;
    f:text;
begin
   assign(f,'koba.in');
   reset(f);
   read(f,n,v[1],v[2],v[3]);
   v[1]:=v[1] mod 10;
   v[2]:=v[2] mod 10;
   v[3]:=v[3] mod 10;
   i:=3;
   close(f);
   k:=0;
   repeat
   i:=i+1;
   v[i]:=(v[i-1]+v[i-2]*v[i-3])mod 10;
   for j:=1 to i-5 do
   if(v[j]=v[i-2])and(v[j+1]=v[i-1])and(v[j+2]=v[i])then k:=j;
   until(k>0)or(i=n);
   if i=n then begin for i:=1 to n do
                     s:=s+v[i];
               end
          else begin for j:=1 to k-1 do
                     s:=s+v[j];
                     for j:=k to i-3 do
                     l:=l+v[j];
                     s:=s+((n-k+1)div(i-2-k)*l);
                     n:=n-k+1;
                     n:=n mod(i-2-k);
                     for j:=k to k+n-1 do
                     s:=s+v[j];
               end;
   assign(f,'koba.out');
   rewrite(f);
   writeln(f,s);
   close(f);
end.