#!/home/neumann/tcl8.4.9/unix/tclsh
if {$argc == 0} {
  puts "Don't use [info script] as interactive shell! Use instead:"
  puts "   /home/neumann/tcl8.4.9/unix/tclsh"
  puts "   package require XOTcl; namespace import ::xotcl::*"
} else {
  package require XOTcl
  namespace import ::xotcl::*
  set argv0 [lindex $argv 0]
  set argv  [lreplace $argv 0 0]
  incr argc -1
  source $argv0
}