with Lines;
package body Line_Iterator_Operations_Solution is

    procedure Total_Count (Info : Information;
                           Iter : in out Lines.Line_Iterator;
                           Total : out Integer) is
        Tot : Integer := 0;
    begin
        while not Lines.Done (Iter) loop
            Tot := Tot + Count (Info, Lines.Value (Iter));
            Lines.Next (Iter);
        end loop;
    end Total_Count;


    procedure Put_All (Iter : in out Lines.Line_Iterator) is
    begin
        while not Lines.Done (Iter) loop
            Lines.Next (Iter);
        end loop;

    end Put_All;
end Line_Iterator_Operations_Solution;