'BEGIN' 'ARRAY' A(/1:10/); A(/1/)= 1 'END'