Evaluated proc # name { loffset [first [a $name]] 0 2 }