'BEGIN'
    'COMMENT' 'LIBRARY' 1;
    'REAL'
        X;
    X := &;
    OUTREAL(99, X);
'END'