'BEGIN'
    'COMMENT' LIBRARY 1;
    'ARRAY'
        V,
        A,
        C[1 : 1];
    'INTEGER'
        K;
    'INTEGER''PROCEDURE' I;
        'BEGIN'
        I := 1;
        K := K + 1
        'END';
    K := 0;
    A[I] := 1;
    C[I] := 3;
    'FOR' V[I] := A[I] 'STEP' A[I] 'UNTIL' C[I] 'DO'
        ;
    OUTREAL(99, K)
'END'