'BEGIN'
    'COMMENT' 'LIBRARY' 1;
    'INTEGER'
        I;
    'INTEGER' 'ARRAY'
        C(/1 : 3/);
    'FOR' I := 1,
        2,
        3 'DO'
        C(/I/):= I + 1;
    'FOR' I := 1,
        2,
        3 'DO'
        'IF' C(/C(/C(/C(/C(/C(/I/)- 1/)- 1/)- 1/)- 1/)- 1/)# I + 1
            'THEN'
            OUTREAL(99, I);
    OUTREAL(99, 0)
'END'