'BEGIN'
    'COMMENT' LIBRARY 1;
    'INTEGER'
        I;
    'SWITCH' S :=
        S1,
        S2,
        S3,
        S4;
    'FOR' I := 1 'STEP' 1 'UNTIL' 4 'DO'
        'BEGIN'
        'GOTO' S[I];
        S1 :;
        'IF' I # 1 'THEN'
            OUTREAL(99, I)
        'ELSE'
            'GOTO' EXIT;
        S2 :;
        'IF' I # 2 'THEN'
            OUTREAL(99, I)
        'ELSE'
            'GOTO' EXIT;
        S3 :;
        'IF' I # 3 'THEN'
            OUTREAL(99, I)
        'ELSE'
            'GOTO' EXIT;
        S4 :;
        'IF' I # 4 'THEN'
            OUTREAL(99, I)
        'ELSE'
            'GOTO' EXIT;
        EXIT :;
        'END';
'END'