package Discr21 is

  procedure Test;

end Discr21;