# Get less sucky interactive behavior.
# http://tclreadline.sourceforge.net/
if {$tcl_interactive} {
	package require tclreadline
	namespace eval tclreadline {
		proc prompt1 {} {
			return "
\[0;31mtclsh>
\[0m "
		}
	}
	namespace import tclreadline::ls
	::tclreadline::Loop
}