package body Halstead_Time is

    procedure Of_Any_Program_Unit (E : in Effort; T : out Result) is

        S : constant Result := 18.0; -- Stroud number

    begin
        -- Of_Any_Program_Unit

        T := Result (E) / S;

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

    end Of_Any_Program_Unit;

end Halstead_Time;