switching from Prolog to TCL, first checkin