#!/usr/bin/perl

use warnings;

my $t=shift;
my $p=0;

for my $x(@ARGV)
{
	$p=$p*$t+$x;
}

print "$p\n";