begin
   comment LIBRARY 1;
   integer
     A;
   integerprocedure F(X, Y);
      value
        X,
        Y;
      integer
        X,
        Y;
      A ≔ F ≔ X + 1;
   integerprocedure G(X);
      integer
        X;
      X ≔ G ≔ A + 2;
   A ≔ 0;
   OUTREAL(99, A + F(A, G(A)) / G(A))
end