package Discr27 is

   procedure Proc;

end Discr27;