How to succinctly name all elements of several lists the same when the lists are nested in an R list?

Question

Sometimes I come across this instance in R:

L <- list()
L[[1]] <- list()
L[[2]] <- list()
L[[1]][[1]] <- 1
L[[1]][[2]] <- 2
L[[2]][[1]] <- 1