Evaluated proc -clipart name { remval [first [a clipart]] $name  }