Here is a simple Tclet: