if {$tcl_interactive} {
   ::tclreadline::Loop
}

