begin
   comment 'LIBRARY' 1;
   integer
     I;
   procedure P;
   begin
      integer
        J;
      procedure Q;
         if I > 10 then
           goto L;
      J ≔ I ≔ I + 1;
      Q;
      OUTREAL(99, J);
      P;
      L :;
      OUTREAL(99, J);
   end;
   I ≔ 1;
   P;
end