SV * _to_IV(SV * in) {
  if(SvNV(in) < 0) return newSViv(SvIV(in));
  return newSVuv(SvUV(in));
}


##</code><code>##

IV _to_IV(SV * in) {
  return SvIV(in);
}