generic

    type Effort is digits <>;

package Halstead_Delivered_Bugs is

    --========================================================================
    -- Halstead B^ = (E ** (2/3)) / 3000
    --========================================================================

    type Result is digits 6;
    procedure Of_Any_Program_Unit (E : in Effort; B_Hat : out Result);

end Halstead_Delivered_Bugs;