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