'BEGIN'
    'COMMENT' LIBRARY 1;
    'INTEGER'I,
    'ARRAY' A[ 1 : 1 ];
    I := A[1] := 1;
    OUTREAL(99, I + A[1])
'END'