use Devel::Peek;
use Inline C=> 'DATA';

Dump(foo( 10 ));

sub vis { map { join '', map sprintf("\\%o", ord), split // } @_ }

__DATA__
__C__
SV* foo(int nr) {
    SV* out = NEWSV(535,nr);
    SvUPGRADE(out,SVt_PV);
    SvCUR_set(out,nr);
    return (out);
}