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