#!/bin/sh
# this line restarts tclsh \
exec tclsh $0 "$@"

#
# Usage: filetail pathname
#
#         Returns the [file tail pathname]
#
if { $argc != 1 } {
    puts stderr "Usage: filetail pathname"
    exit 1
}
set pathname [lindex $argv 0]
puts stdout [file tail $pathname]
flush stdout
exit 0
