'BEGIN'
'COMMENT' LIBRARY 1;
    'REAL'
        X,
        Y;
    'PROCEDURE' DUM;
        ;
    'REAL' 'PROCEDURE' A;
        A := X + ('IF' B 'THEN' 1 'ELSE' 0);
    'BOOLEAN'
        B;
    S2 :;
    B := (('TRUE'));
    G :;
    'BEGIN'
        'INTEGER'
            I;
        X := - 3;
        'IF' 'NOT' B 'THEN'
            'GOTO' S2;
        I := 1;
        Y := A - I * X^2;
        DUM
    'END';
    OUTREAL(99, Y / 2)
'END'