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