generic

    type Program_Volume is digits <>;
    type Program_Level is digits <>;

package Halstead_Effort is

    --========================================================================
    -- Halstead E = V / L
    --========================================================================

    type Result is digits 6;
    procedure Of_Any_Program_Unit
                 (V : in Program_Volume; L : in Program_Level; E : out Result);

end Halstead_Effort;