with GNAT.Sockets;

generic
   Port : GNAT.Sockets.Port_Type;
   with procedure Process_Request (Connection : GNAT.Sockets.Socket_Type);
procedure Generic_Server;