Pat Deegan
proc run_script {fname} {
set fl [open $fname]
set data [read $fl]
close $fl
eval $data
}
tnt
source