generic
    Number_Of_Streams : Natural := 1;
package Batch_Server is

    procedure Serve;

end Batch_Server;