#! /usr/local/bin/tclsh

set fd [open ./workfile r]
set txt [read $fd]
