rem: CounterThread(void)
add: static Ns_ThreadProc CounterThread; static unsigned long TrueRand(void); static unsigned long Roulette(void);    static volatile unsigned long counter;   static volatile char fRun;  static volatile char fCount;  static Ns_Sema sema;	    static Ns_Cs lock;    int NsTclRandCmd(ClientData dummy, Tcl_Interp *interp, int argc, char **argv)
context: CounterThread(void){    while (counterRun) {        Ns_SemaWait(&counterSema);        if (counterRun) {	    while (keepCounting) {		Counter++;            }        }    }}