begin
   comment LIBRARY 1;
   integer
     N;
   integerprocedure P(Q, R);
      integerprocedure Q;
        comment   (R):'INTEGER''PROCEDURE' R;
        integerprocedure R;
   begin
      integer
        B;
      B ≔ 3 × Q(R);
      P ≔ B
   end;
   integerprocedure A(F);
      integerprocedure
        F;
      A ≔ 2 × F;
   integerprocedure B;
   begin
      N ≔ N - 1;
      B ≔         if N = 0 then
        1
      else
        P(A, B) + 1
   end;
   N ≔ 2;
   N ≔ P(A, B);
   OUTREAL(99, N)
end