package body Halstead_Program_Length is

    procedure Of_Any_Program_Unit (N1 : in Total_Operators;
                                   N2 : in Total_Operands;
                                   N : out Result) is

    begin
        -- Of_Any_Program_Unit

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

    end Of_Any_Program_Unit;

end Halstead_Program_Length;