Here are two lists of lists A and B
A<- list(list(data.frame(a=c(1,2,3), b=c(4,5,6), c=c("e", "r", "t"))), list(data.frame(a=