begin
   array
     A0[1 : 10], A1[1 : 10], A2[1 : 10], A3[1 : 10],
     A4[1 : 10], A5[1 : 10], A6[1 : 10], A7[1 : 10],
     A8[1 : 10], A9[1 : 10], A10[1 : 10], A11[1 : 10],
     A12[1 : 10], A13[1 : 10], A14[1 : 10], A15[1 : 10],
     A16[1 : 10], A17[1 : 10], A18[1 : 10], A19[1 : 10],
     A20[1 : 10], A21[1 : 10], A22[1 : 10], A23[1 : 10],
     A24[1 : 10], A25[1 : 10], A26[1 : 10], A27[1 : 10],
     A28[1 : 10], A29[1 : 10], A30[1 : 10], A31[1 : 10],
     A32[1 : 10], A33[1 : 10], A34[1 : 10], A35[1 : 10],
     A36[1 : 10], A37[1 : 10], A38[1 : 10], A39[1 : 10],
     A40[1 : 10], A41[1 : 10], A42[1 : 10], A43[1 : 10],
     A44[1 : 10], A45[1 : 10], A46[1 : 10], A47[1 : 10],
     A48[1 : 10], A49[1 : 10], A50[1 : 10], A51[1 : 10],
     A52[1 : 10], A53[1 : 10], A54[1 : 10], A55[1 : 10],
     A56[1 : 10], A57[1 : 10], A58[1 : 10], A59[1 : 10];
   A0[1] ≔ 1·0;    A1[1] ≔ 1·0;    A2[1] ≔ 1·0;    A3[1] ≔ 1·0;
   A4[1] ≔ 1·0;    A5[1] ≔ 1·0;    A6[1] ≔ 1·0;    A7[1] ≔ 1·0;
   A8[1] ≔ 1·0;    A9[1] ≔ 1·0;    A10[1] ≔ 1·0;    A11[1] ≔ 1·0;
   A12[1] ≔ 1·0;    A13[1] ≔ 1·0;    A14[1] ≔ 1·0;    A15[1] ≔ 1·0;
   A16[1] ≔ 1·0;    A17[1] ≔ 1·0;    A18[1] ≔ 1·0;    A19[1] ≔ 1·0;
   A20[1] ≔ 1·0;    A21[1] ≔ 1·0;    A22[1] ≔ 1·0;    A23[1] ≔ 1·0;
   A24[1] ≔ 1·0;    A25[1] ≔ 1·0;    A26[1] ≔ 1·0;    A27[1] ≔ 1·0;
   A28[1] ≔ 1·0;    A29[1] ≔ 1·0;    A30[1] ≔ 1·0;    A31[1] ≔ 1·0;
   A32[1] ≔ 1·0;    A33[1] ≔ 1·0;    A34[1] ≔ 1·0;    A35[1] ≔ 1·0;
   A36[1] ≔ 1·0;    A37[1] ≔ 1·0;    A38[1] ≔ 1·0;    A39[1] ≔ 1·0;
   A40[1] ≔ 1·0;    A41[1] ≔ 1·0;    A42[1] ≔ 1·0;    A43[1] ≔ 1·0;
   A44[1] ≔ 1·0;    A45[1] ≔ 1·0;    A46[1] ≔ 1·0;    A47[1] ≔ 1·0;
   A48[1] ≔ 1·0;    A49[1] ≔ 1·0;    A50[1] ≔ 1·0;    A51[1] ≔ 1·0;
   A52[1] ≔ 1·0;    A53[1] ≔ 1·0;    A54[1] ≔ 1·0;    A55[1] ≔ 1·0;
   A56[1] ≔ 1·0;    A57[1] ≔ 1·0;    A58[1] ≔ 1·0;    A59[1] ≔ 1·0;
   OUTREAL(99, A0[1]+ A1[1]+ A2[1]+ A3[1]+ A4[1]+ A5[1]+ A6[1]
     + A7[1]+ A8[1]+ A9[1]+ A10[1]+ A11[1]+ A12[1]+
     A13[1]+ A14[1]+ A15[1]+ A16[1]+ A17[1]+ A18[1]+
     A19[1]+ A20[1]+ A21[1]+ A22[1]+ A23[1]+ A24[1]+
     A25[1]+ A26[1]+ A27[1]+ A28[1]+ A29[1]+ A30[1]+
     A31[1]+ A32[1]+ A33[1]+ A34[1]+ A35[1]+ A36[1]+
     A37[1]+ A38[1]+ A39[1]+ A40[1]+ A41[1]+ A42[1]+
     A43[1]+ A44[1]+ A45[1]+ A46[1]+ A47[1]+ A48[1]+
     A49[1]+ A50[1]+ A51[1]+ A52[1]+ A53[1]+ A54[1]+
     A55[1]+ A56[1]+ A57[1]+ A58[1]+ A59[1]);
end