begin
   comment 'LIBRARY' 1;
   real
     X;
   procedure P(Y);
      value
        X;
      real
        Y;
      Y ≔ X;
   X ≔ 3·4;
   P(10·0);
   OUTREAL(99, X)
end