begin

    comment library 1;

    real
        a0,
        a1,
        a2,
        a3,
        a4,
        a5,
        a6,
        a7,
        a8,
        a9,
        a10,
        a11,
        a12,
        a13,
        a14;
    real
        sum;
    a0 := 1.0;
    a1 := 1.0;
    a2 := 1.0;
    a3 := 1.0;
    a4 := 1.0;
    a5 := 1.0;
    a6 := 1.0;
    a7 := 1.0;
    a8 := 1.0;
    a9 := 1.0;
    a10 := 1.0;
    a11 := 1.0;
    a12 := 1.0;
    a13 := 1.0;
    a14 := 1.0;
    sum := 2.0 * a0 + .5 * (2.0 * a1 + .5 * (2.0 * a2 + .5 * (2.0
        * a3 + .5 * (2.0 * a4 + .5 * (2.0 * a5 + .5 * (2.0 * a6
        + .5 * (2.0 * a7 + .5 * (2.0 * a8 + .5 * (2.0 * a9 + .5
        * (2.0 * a10 + .5 * (2.0 * a11 + .5 * (2.0 * a12 + .5 *
        (2.0 * a13 + .5 * (a14))))))))))))));
    outreal(1, sum);
end