--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.tclshrc	Thu Aug 29 23:05:56 2013 +0300
@@ -0,0 +1,6 @@
+# -*- mode: tcl -*-
+
+if {$tcl_interactive} {
+    package require tclreadline
+    ::tclreadline::Loop
+}