Selecting elements from a list with non compatible length

Question

Given the following structure of the list:

x <- list(list(Main = list(one = list(tlv = 1, beta = 2), two = "three", three = 4,list_a = list(list(