#!/usr/bin/perl

use Inline C;
print suma(100_000_000);

__END__
__C__

double suma(double n)
{
  double i, sum = 0;
  for (i=1; i<=n; i++) {
    sum += i;
  }
  return sum;
}