configuration Filters is

   for Partition'Directory use "bin";
   for Partition'Host use "localhost";

   P1 : Partition := (prime_1);
   P2 : Partition := (prime_2);
   P3 : Partition := (prime_3);

   P4 : Partition := (System.Garlic.Filters.Double,
                      System.Garlic.Filters.Shift,
                      System.Garlic.Filters.Reversing);

   -- C1 : Channel := (P1, P2);
   C2 : Channel := (P2, P3);

   pragma Registration_Filter ("reversing");

   for Partition'Filter use "double";
   for Channel'Filter use "shift";
   -- for C1'Filter use "zip";

   procedure Mainloop is in P4;

end Filters;
