Evaluated proc capitalise str {set out $str; map $::alphalist {x {set out [string map "\". $x\" \". [string toupper $x]\"" $out]}}; . $out}