#! /bin/sh
# the next line restarts using wish \
exec /usr/bin/wish8.5 "$0" ${1+"$@"}
set myName [info script]
if {![catch {
    set linkName [file readlink $myName]
}]} {
    set myName $linkName
}
source [file join [file dirname $myName] gorilla.tcl]
