I have different character lists such as:

```
list1 <- c("abw", "afg", "ago", "aia", "alb", "and", "ant", "are", "arg", "arm", "asm", "ata", "atf")
list2 <- c("and", "ant")
list3 <- c("abw", "afg")

```

I would like to subtract the values contained in `list2` and `list3` from list1 to obtain the following result:

```
list.final <- c("ago", "aia", "alb", "are", "arg", "arm", "asm", "ata", "atf")

```

A "simple" `list.final <- list1-list2-list3` obviously does not work...

Any idea?