Evaluated proc ^B {matches args} {return [format %c [expr {[scan [last $matches] %c] - 64}]][join [lrange $args 1 end]]}