word_t
word_t wordtab[] = {
word_t word;
register word_t *wptr;
wptr = (word_t *)bsearch((char *)&word,
(char *)wordtab, NWORDS, sizeof (word_t),
((const word_t *)w1)->w_string,
((const word_t *)w2)->w_string));