/* returns length of a series, scalar or string */
getlength(s)
{
        if (argc > 0)
        {
                if (isstring(s))
                {
                        return(strlen(s));
                }
                else
                {
                        return(length(s));
                }
        }
        else
        {
                return(length(w0));
        }
}