1 # -*- mode: tcl -*-

     2 

     3 if {$tcl_interactive} {

     4     package require tclreadline

     5     ::tclreadline::Loop

     6 }