Added routine to decompose nesting

For example, the line:

    if (pop@type != "codom" | all(is.na(unlist(lapply(pop@all.names,
as.numeric)))))

would have the functions
    all
    is.na
    unlist
    lapply

extracted. It’s not perfect as a function to extract from the *apply
family is needed.