res[-1,]

  res %>% filter(!(word %in% c(a,b,c)))

deduped_words %>% analogue("ŝi", "virino", "viro")

deduped_words %>% analogue("reĝo", "viro", "virino")