source file.tcl
# magic
p
source file.tcl