package Loc_Comments is

    --===================================================================
    -- This package contains definition of LOC comments count and an   ==
    -- operation used to change an object of type Count.               ==
    --===================================================================

    type Count is new Natural;
    procedure Change (Number_Of_Comments : in out Count;
                      With_Delta : in Positive := 1);

end Loc_Comments;