4     package require tclreadline

     4     catch {

     5     ::tclreadline::Loop

     5         package require tclreadline

     6         namespace eval tclreadline {

     7             if ([regexp "^(xterm|eterm-color)" "$::env(TERM)"]) {

     8                 proc prompt1 {} { return "
\[0;31m\[1mtcl>
\[0m " }

     9             } {

    10                 proc prompt1 {} { return "tcl> " }

    11             }

    12         }

    13         ::tclreadline::Loop

    14     }