{必修三学过的,但是一直没打过,这是很好的技巧哦} var i,n,x,ans:longint; a:array[1..100] of longint;{a[1],a[2],a[n]分别为最高次项系数,次高。。。常数项} begin read(n,x); for i:=1 to n do read(a[i]); ans:=a[1]; for i:=1 to n-1 do ans:=ans*x+a[i+1]; writeln(ans); end.