#!/usr/bin/wish

proc icanspeak {} {

    set name [.ent get]

    if {[string length $name] != } {

        exec s $name

    }

}

label .lab -text "Enter word:"

entry .ent

button .but -text "<\")))><" -command "icanspeak"

#pack .lab

pack .ent

pack .but

bind . <Return> ".but invoke"

set width

set height

set x [expr { ( [winfo screenwidth  .] - $width  ) }]

set y [expr { ( [winfo screenheight .] - $height ) }]

wm title . "><(((\">"

wm geometry . ${width}x${height}+${x}+${y}

wm attributes . -topmost