while (stopping !="sun_set") {
      memory := own new Memory;
      timer := new Timer;
      var err;
      err:=wrap own error "Time out!";
//      permit 0 0 err;
      timer.set[err];
      err:=wrap own error "Memory out!";
//      permit 0 0 err;
      memory.set[err];

      try {
        (quote (class Value Array.create[1])).eval[];
        mserver.serviceForClient[];                  
       	  var code;
       code:= mserver.loadProgram[];
       timer.start[150000];
       memory.start[9500000];
       code.call[(mserver.getClientOwner[])];
        timer.stop[];
       memory.stop[];
        // mythread.store[];
        mserver.disconnect[];
      }
      catch "" {
       timer.stop[];
        memory.stop[];
        print thisException;
        mserver.disconnect[];
      };
    };
print stopping;
stopping:="^^^^^^^66";
print stopping;
//mythread.store[];
mserver.disconnect[];
