Consider a recursively constructed and arbitrarily deep nested S4 object:
setClass("person", representation(name = "character", child = "