#!/usr/bin/env perl

use warnings;

use Inline C =><<'END_OF_C_CODE';

int c_popcount(int x) {
	return __builtin_popcount(x);
}
END_OF_C_CODE


my $x = 10000000;
my $i;
for ($i = 1; $i <= $x; ++$i) {
	c_popcount($i);
}	

