package discr2 is procedure Dummy; end discr2;