#! perl -slw
use strict;
use Inline C => Config => BUILD_NOISY => 1;
use Inline C => <<'END_C',  NAME => 'rand64fast', CLEAN_AFTER_BUILD => 0;

void rnd( int n ) {
    dSP;
    static __int64 y = 2463534242;

    EXTEND( SP, n );
    while( --n ) {
        y ^= y << 13;
        y ^= y >> 17;
        y ^= y << 5;
        mPUSHi( (IV)y );
    }
    return;
}

END_C

print for rnd( 100 );