procedure vmas(a:integer; var m:t); //поміщення числа в масив
var k,l:integer;
begin
k:=0;
repeat begin
l:=a mod 10;
a:=a div 10;
inc(k);
m[k+1]:=l;
end;
until a=0;
m[1]:=k;
end;

procedure prnt(m:t);//Друкування масиву
var k:word;
begin
k:=m[1]+1;
while k>1 do begin write(m[k]); dec(k);end;
end;

procedure suma(m,n:t;var mn:t);//сума довгих чисел
var k,l,x,y:integer;
begin
if m[1]>n[1] then l:=m[1] else l:=n[1];
for k:=2 to l+1 do begin
x:=(m[k]+n[k]) mod 10;
y:=(m[k]+n[k]) div 10;
mn[k]:=mn[k]+x;
mn[k+1]:=y;
end;
if mn[k+1]>0 then mn[1]:=k else mn[1]:=k-1;
end;

procedure dob(m,n:t;var mn:t);//добуток довгих чисел
var k,l,x,y,z,c,d:integer;
begin
k:=m[1];l:=n[1];z:=0;
for x:=2 to k+1 do begin
for y:=2 to l+1 do begin
c:=(m[x]*n[y]) mod 10;
d:=(m[x]*n[y]) div 10;
mn[y+z]:=mn[y+z]+c; if mn[y+z]>9 then begin inc(mn[y+z+1]); mn[y+z]:=mn[y+z] mod 10; end;
mn[y+z+1]:=mn[y+z+1]+d; if mn[y+z+1]>9 then begin inc(mn[y+z+2]); mn[y+z+1]:=mn[y+z+1] mod 10; end;
end;
inc(z);
end;
if mn[k+l+1]<>0 then mn[1]:=k+l else mn[1]:=k+l-1;
end;

procedure prir(n:t;var m:t);//Присвоєння значення одного масиву іншому
var k:integer;
begin
for k:=1 to n[1]+1 do m[k]:=n[k];
end;

procedure fibo(n:integer;var mn:t);//Знаходження числа фібоначі
var k,kk:integer; m,r:t;
begin
m[1]:=1;m[2]:=1;
r[1]:=1;r[2]:=1;
if n=1 then begin prir(m,mn) end else
begin if n=2 then prir(r,mn) else
begin
for k:=3 to n do begin
for kk:=1 to mn[1]+1 do mn[kk]:=0;
suma(m,r,mn);
prir(r,m);
prir(mn,r);
end;
end;
end;
end;

procedure nul(var m:t); //Обнулення масиву
var k:integer;
begin
for k:=1 to m[1]+1 do m[k]:=0;
end;

begin //основна програма
readln(a);
vmas(1,a1);
for i:=1 to a do begin
vmas(i,a2);
dob(a1,a2,a3);
prir(a3,a1);
nul(a3);
end;
prnt(a1);
end.

procedure nul(var m:t); //Обнулення масиву
var k:integer;
begin
for k:=1 to 1000 do m[k]:=0;
end;

procedure vmas(a:integer; var m:t); //ïРоміщення числа в масив
var k,l:integer;
begin
k:=0;
nul(m);
repeat begin
l:=a mod 1000;
a:=a div 1000;
inc(k);
m[k+1]:=l;
end;
until a=0;
m[1]:=k;
end;

procedure prnt(m:t);//Друк масиву
var k:integer;
begin
k:=m[1]+1;
while k>1 do begin if m[k]<>0 then write(m[k]) else write(0,0,0); dec(k);end;
end;

procedure suma(m,n:t;var mn:t);//Сума довгих чисел
var k,l,x,y,x1:integer;
begin
nul(mn);
if m[1]>n[1] then l:=m[1] else l:=n[1];
for k:=2 to l+1 do begin
x:=(m[k]+n[k]) mod 1000;
y:=(m[k]+n[k]) div 1000;
mn[k]:=mn[k]+x;
x1:=k;
while mn[x1]>999 do begin
mn[x1+1]:=mn[x1+1]+(mn[x1] div 1000);
mn[x1]:=mn[x1] mod 1000;
inc(x1);
end;
//if mn[k]>999 then begin mn[k+1]:=mn[k] div 1000; mn[k]:=mn[k] mod 1000; end;
mn[k+1]:=mn[k+1]+y;
end;
if mn[k+1]>0 then mn[1]:=k else mn[1]:=k-1;
end;

procedure dob(m,n:t;var mn:t);//Добуток довгих чисел
var k,l,x,y,z,c,d,x1:integer;
begin
nul(mn);
k:=m[1];l:=n[1];z:=0;
for x:=2 to k+1 do begin
for y:=2 to l+1 do begin
c:=(m[x]*n[y]) mod 1000;
d:=(m[x]*n[y]) div 1000;
mn[y+z]:=mn[y+z]+c;
x1:=y+z;
while mn[x1]>999 do begin
mn[x1+1]:=mn[x1+1]+(mn[x1] div 1000);
mn[x1]:=mn[x1] mod 1000;
inc(x1);
end;
//if mn[y+z]>999 then begin mn[y+z+1]:=mn[y+z+1]+(mn[y+z] div 1000); mn[y+z]:=mn[y+z] mod 1000; end;
mn[y+z+1]:=mn[y+z+1]+d;
x1:=y+z+1;
while mn[x1]>999 do begin
mn[x1+1]:=mn[x1+1]+mn[x1] div 1000;
mn[x1]:=mn[x1] mod 1000;
inc(x1);
end;
//if mn[y+z+1]>999 then begin mn[y+z+2]:=mn[y+z+2]+(mn[y+z+1] div 1000); mn[y+z+1]:=mn[y+z+1] mod 1000; end;
end;
inc(z);
end;
if mn[k+l+1]<>0 then mn[1]:=k+l else mn[1]:=k+l-1;
end;

procedure prir(n:t;var m:t);//Присвоєння одного масиву іншому
var k:integer;
begin
for k:=1 to n[1]+1 do m[k]:=n[k];
end;

procedure fibo(n:integer;var mn:t);//Числа Фібоначі
var k:integer; m,r:t;
begin
nul(m);nul®;
m[1]:=1;m[2]:=1;
r[1]:=1;r[2]:=1;
if n=1 then begin prir(m,mn) end else
begin if n=2 then prir(r,mn) else
begin
for k:=3 to n do begin
nul(mn);
suma(m,r,mn);
prir(r,m);
prir(mn,r);
end;
end;
end;
end;

begin
begin //Основна програма
readln(a);
if a=1 then Writeln(0) else begin
vmas(1,a1);
for i:=1 to a do begin
vmas(i,a2);
dob(a1,a2,a3);
prir(a3,a1);
nul(a3);
end;
prnt(a1);
end;
end;
end.