begin
   comment LIBRARY 1;
   real procedure R(A);
      real
        A;
   begin
      integerprocedure P(B, C);
         integer
           B,
           C;
         P ≔ B + C;
      R ≔ P(A + 1, A)
   end R;
   real
     X;
   begin
      real
        Y;
      Y ≔ 4;
      X ≔ R(R(Y + 1))
   end;
   OUTREAL(99, X)
end