Tcl-I.rissmonitor (Traitsching) Eksempel