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