/* return first token in string */
strtok(str, delim)
{
        local tok, rem;

        if (argc < 2)
        {
                if (argc < 1) error("strtok - input string required");
                
                delim = " ";
        }

        /* get first token */
        tok = strget(1, str, delim);

        /* extract to find remainder */
        rem = strextract(strfind(tok, str), strlen(tok) + 1, -1);

        return(tok, rem);
}