Artifact 4dcb17b5492330a11581b75979f9177c49b6b39a:
package require Tcl 8.5
set script [open foo.tcl w]
fconfigure $script -encoding utf-8
puts $script "proc tcl::mathfunc::\u03B1 {} {puts SUCCESS; return 0}"
puts $script "expr {\u03B1()}"
close $script
source -encoding utf-8 foo.tcl