/* returns INTN datatype or converts input to intN */
castintN(s, N)
{
        if (argc < 2)
        {
                if (argc < 1)
                {
                        s = 1;
                }

                if (isscalar(s))
                {
                        /* signed N byte int */
                        return(1000 + s);
                }
                else
                {
                        N = 1;
                }
        }

        /* convert to signed N byte int */
        return(castbyte({s}, 1000 + N));
}