begin
   comment 'LIBRARY' 1;
   real
     Y;
   procedure P(X, X);
      value
        X;
      real
        X;
      X ≔ X⭡2 + 8·6;
   P(Y, 2·0);
   OUTREAL(99, Y)
end