#!/usr/bin/tclsh

# do something.