Evaluated proc dd {name field} { set mylist [first [a $name]]; aa $name $field [remval $mylist $field] }