generic package A is procedure Set; end A;