package body Loc_Comments is

    procedure Change (Number_Of_Comments : in out Count;
                      With_Delta : in Positive := 1) is
    begin
        -- Change

        Number_Of_Comments := Number_Of_Comments + Count (With_Delta);

    end Change;

end Loc_Comments;