Evaluated proc test {} {set ok {abc}; set cum 321; set wat cum; set huh "::nigger_\$ok"; . $$huh }