\begin{alltt}
(* Definition einer Servicefunktion *)
let webService(valTable :hashTable.T(tipServer.E String)) :String =
    begin
    .
    .
    .

    end;

(* Erzeugen eines Serverobjektes mit Port = 6001 *)
let ts = tipServer.create(6001); 

(* Hinzuf\"ugen einer Servicefunktion *)
tipServer.addService(ts "webServ" webService);

(* Aktivieren des Serverobjektes *)
tipServer.activate(ts);

(* L\"oschen des Serverobjektes und Freigeben des Ports *)
tipServer.delete(ts);   
\end{alltt}

%%% Local Variables: 
%%% mode: latex
%%% TeX-master: "quas"
%%% End: 
