begin
   comment 'LIBRARY' 1;
   integer
     I;
   procedure P(A, B);
      integer
        A;
        integer
        B;
      I ≔ A + B;
   P(3, 4);
   OUTREAL(99, I);
end