/* returns UINTN datatype or converts input to uintN */
castuintN(s, N)
{
        if (argc < 2)
        {
                if (argc < 1)
                {
                        s = 1;
                }

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

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