1 2 3 4 5 6
package Vect2_Pkg is function K return Positive; function N return Positive; end Vect2_Pkg;