#  "John Miller"
set  dad  "$family(father) $family(lastname)"
set second_daughter [lindex $family(daughter) 1]