Evaluated proc dd {name field} { a $name [remval [first [a $name]] $field] }