package body Halstead_Error_Proneness is

    procedure Of_Any_Program_Unit (N1 : in Unique_Operator_Count;
                                   Lc_N2 : in Unique_Operand_Count;
                                   Uc_N2 : in Total_Operands;
                                   D_Hat : out Result) is

    begin
        -- Of_Any_Program_Unit

        D_Hat := Result (N1 / 2) * (Result (Uc_N2) / Result (Lc_N2));

    exception
        -- to be changed after the demo
        when others =>
            D_Hat := 0.0;

    end Of_Any_Program_Unit;

end Halstead_Error_Proneness;