XS(XS_main_new_artist)
{
    dXSARGS;
    if (items != 1)
        Perl_croak(aTHX_ "Usage: main::new_artist(name)");
    PERL_UNUSED_VAR(cv); /* -W */
    {
        char *  name = (char *)SvPV_nolen(ST(0));
        SV *    RETVAL; 

        RETVAL = new_artist(name);
        ST(0) = RETVAL; 
        sv_2mortal(ST(0));
    }
    XSRETURN(1);
}