'BEGIN'
    'ARRAY'
        A0, A1, A2, A3, A4, A5, A6, A7, A8, A9,
        A10, A11, A12, A13, A14, A15, A16, A17, A18, A19,
        A20, A21, A22, A23, A24, A25, A26, A27, A28, A29,
        A30, A31, A32, A33, A34, A35, A36, A37, A38, A39,
        A40, A41, A42, A43, A44, A45, A46, A47, A48, A49,
        A50, A51, A52, A53, A54, A55, A56, A57, A58, 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'