Evaluated proc jizzcum-acr str {set out $str; map $::alphalist {x {string map "[string toupper $x] [^B][^_][string toupper $x][^O]" $out}}; . $out }