Evaluated proc test {} {set ok {abc}; set huh "::nigger_$ok"; . $$huh}