with ada;
with ada.text_io;

procedure main is
    glob: Integer := 42;

    task a is end a;
    task b is end b;

    task body a is
    begin
        for i in 1..100000 loop
            glob := glob + 1;
        end loop;
        ada.text_io.put_line(Integer'image(glob));
    end a;

    task body b is
    begin
        for i in 1..100000 loop
            glob := glob - 1;
        end loop;
        ada.text_io.put_line(Integer'image(glob));
    end b;
begin
    null;
end main;