#! perl -sl
#use List::Util qw[ sum ];

our $N //= 10;

my $t = 0;
$t += $_ for 1 .. $N;
print $t;