begin
   comment 'LIBRARY'5;
   real procedure P(Q);
      real procedure
        Q; comment(X): 'VALUE' X: 'REAL' X;
      P ≔ ABS(Q( - 6·4));
   OUTREAL(99, P(ABS))
end