Tcl-I.rissmonitor (Traitsching) Voorbeeld