#!/usr/bin/tclsh
package require Tk
button .b -text exit -command {puts bye; exit}
pack .b