Evaluated proc test {} {set ok {abc}; set cum 321; set wat cum; set nigger_abc 666; set huh "nigger_$ok"; eval $$huh }