Evaluated proc ddd {name field subfield} { aa $name $field [remval [first [aa $name $field]] $subfield] }