'BEGIN'
    'COMMENT' LIBRARY 1;
    'INTEGER'
        N;
    N := 3;
    'BEGIN'
        'ARRAY'
            A[1 : 'IF' N = 3 'THEN' 3 'ELSE' - 100];
        'INTEGER'
            N;
        N := 2;
        OUTREAL(99, N);
    'END';
    OUTREAL(99, N)
'END'