package body Halstead_Vocabulary_Size is

    procedure Of_Any_Program_Unit (N1 : in Unique_Operator_Count;
                                   N2 : in Unique_Operand_Count;
                                   N : out Result) is

    begin
        -- Of_Any_Program_Unit

        N := Result (N1) + Result (N2);

    end Of_Any_Program_Unit;

end Halstead_Vocabulary_Size;