Soldier *	SOLDIER

INPUT
SOLDIER
       
        $var = INT2PTR($type, SvIV(SvRV($arg)))

OUTPUT
SOLDIER

        $arg     = newSViv(0);
        sv_setiv(newSVrv($arg, \"Soldier\"), (IV)$var);
        SvREADONLY_on(SvRV($arg));
        $arg;