sub suma {
    my $n = shift;
    return $n * ($n+1) / 2;
}