a very simple, basic address book thingy in tcl/tk