with ada.text_io; use ada.text_io; 
with ada.integer_text_io; use ada.integer_text_io; 
with ada.numerics.discrete_random;

procedure linelistpart is

    -- Define these types:
    -- type point is 
    -- type line is 
    subtype line is integer;  -- allows our stubs to compile

    Max_Lines: Constant Natural := 100;
    type Line_Array is array(1 .. Max_Lines) of Line;

    -- Define this type:
    -- type List is 
    subtype list is integer;  -- allows our stubs to compile
    
    
    -- Define this type:
    -- type list is


    procedure fill_list(l: out list) is
    begin
        -- while not end_of_file loop
            -- Rewrite this so that it reads pairs and puts them into the list
           get(l);
        --end loop;
    end fill_list;

    procedure print_list(l: in list) is
    begin
        -- for i in 1 .. ??? loop
            put(l);
            new_line;
        -- end loop;

    end print_list;

    theList: list; 

begin
    fill_list(theList);
    print_list(theList);
end linelistpart;