begin 
    comment library 1;
    integer i,
    array a[ 1 : 1 ];
    i := a[1] := 1;
    outreal(1, i + a[1])
end