int
conceal(int var)
  CODE:
    SvREFCNT_inc((SV *) var);
    RETVAL = var;
  OUTPUT:
    RETVAL

SV *
reveal(char *str_or_addr)
  CODE:
    char *hex;
    int addr = (hex = rindex(str_or_addr, 'x')) ?
      strtol(++hex, NULL, 16) :
      atoi(str_or_addr);
    RETVAL = newRV((SV *) addr);
    SvREFCNT_dec((SV *) addr);
  OUTPUT:
    RETVAL