program demo;
procedure Foo;
begin end;
procedure Bar;
begin end;
var
c: integer;
begin
c := -8;
repeat
Foo;
Bar;
c += 1;
until
c = 0;
end.
cHJvZ3JhbSBkZW1vOwoKcHJvY2VkdXJlIEZvbzsKYmVnaW4gZW5kOwoKcHJvY2VkdXJlIEJhcjsKYmVnaW4gZW5kOwoKdmFyCiBjOiBpbnRlZ2VyOwoKYmVnaW4KICBjIDo9IC04OwogIHJlcGVhdAogICAgRm9vOwogICAgQmFyOwogICAgYyArPSAxOwogIHVudGlsCiAgICBjID0gMDsKZW5kLg==