#!/usr/bin/tclsh puts { }