for $i (1..100) {
	$r=C($i);
	print $r."\n"
}
use Inline C => <<'C_CODE';
int C (int i) {
	Inline_Stack_Vars;
	return i;
	Inline_Stack_Void;
}
C_CODE

##</code><code>##

... 
94
95
96
97
98
99
100
Segmentation fault  

##</code><code>##

SV* C (SV* param) {
	Inline_Stack_Vars;
	int i = atoi(SvPV(Inline_Stack_Item(0), PL_na));
	return newSVpvf("%i",i);
	Inline_Stack_Void;
}

##</code><code>##

1
0
0
Segmentation fault