XS(XS_main_rnd64); /* prototype to pass -Wmissing-prototypes */
XS(XS_main_rnd64)
{
#ifdef dVAR
    dVAR; dXSARGS;
#else
    dXSARGS;
#endif
    if (items != 1)
       croak_xs_usage(cv,  "n");
    PERL_UNUSED_VAR(ax); /* -Wall */
    SP -= items;                 ### <<<<<<< Has no effect
    {
	int	n = (int)SvIV(ST(0));
#line 64 "monkeys.xs"
    I32* temp;
#line 135 "monkeys.c"
#line 66 "monkeys.xs"
    temp = PL_markstack_ptr++;
    rnd64(n);

##</code><code>##

    SP -= items;    

##</code><code>##

    return; /* assume stack size is correct */
#line 146 "monkeys.c"
	PUTBACK;            ### << Never reached
	return;
    }
}

##</code><code>##

XS(XS_main_xxxxx) {
    dXSARGS;

    if (items != 1) croak_xs_usage(cv,  "n");

    SP -= items;
    {
        int	n = (int)SvIV(ST(0));
        I32* temp = PL_markstack_ptr++;
    
        PUTBACK;
        xxxxx(n);

        if (PL_markstack_ptr != temp) {
             PL_markstack_ptr = temp;
             XSRETURN_EMPTY; 
        }
        PUTBACK;
        return;
    }
}