begin 

    comment library 1;

    integer procedure p(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); 
        value 
            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; 
        integer 
            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; 
        p := 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; 

    outreal(1, p(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
        1, 1, 1, 1, 1, 1, 1)); 
end 


algol

begin 

    comment library 1;

    array 
        a[1 : 2, 1 : 2, 1 : 2, 1 : 2, 1 : 2, 1 : 2, 1 : 2, 1 :
            2, 1 : 2, 1 : 2, 1 : 2, 1 : 2]; 
    a[1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1] := 1.0; 
    outreal(1, a[1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1]); 
end 


algol

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 := a0 + (a1 + (a2 + (a3 + (a4 + (a5 + (a6 + (a7 + (a8 + (a9
        + (a10 + (a11 + (a12 + (a13 + (a14)))))))))))))); 
    outreal(1, sum); 
end 



algol

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 


algol

begin 

    comment library 5;

    real 
        x; 
    x := 8.4; 
    outreal(1,
        sqrt(sqrt(sqrt(sqrt(sqrt(sqrt(sqrt(sqrt(sqrt(x^9)))))))))
        ); 
end 


algol

begin 
    integer 
        i, 
        j; 
    i := 1; 
    j := 2; 
    l1 :; 
    goto 
        if i > j then 
            l1
        else if i > j then 
            l1
        else if i > j then 
            l1
        else if i > j then 
            l1
        else if i > j then 
            l1
        else if i > j then 
            l1
        else 
            l2; 
    l2 :; 
end 



algol

begin 
    a0 :; 
    a1 :; 
    a2 :; 
    a3 :; 
    a4 :; 
    a5 :; 
end 


algol

begin 

  comment library 1;

  integer 
    sum; 
  sum := 0; 
  begin 
    sum := sum + 1; 
    begin 
      sum := sum + 1; 
      begin 
        sum := sum + 1; 
        begin 
          sum := sum + 1; 
          begin 
            sum := sum + 1; 
            begin 
              sum := sum + 1; 
              begin 
                sum := sum + 1; 
                begin 
                  sum := sum + 1; 
                  begin 
                    sum := sum + 1; 
                    begin 
                      sum := sum + 1; 
                      begin 
                        sum := sum + 1; 
                        begin 
                          sum := sum + 1; 
                          begin 
                            sum := sum + 1; 
                            begin 
                              sum := sum + 1; 
                              begin 
                                sum := sum + 1; 
                                begin 
                                  sum := sum + 1; 
                                  begin 
                                    sum := sum + 1; 
                                    begin 
                                      sum := sum + 1; 
                                      begin 
                                        sum := sum + 1; 
                                        begin 
                                          sum := sum + 1; 
                                          begin 
                                            sum := sum + 1; 
                                            begin 
                                              sum := sum + 1; 
                                              begin 
                                                sum := sum + 1; 
                                                begin 
                                                  sum := sum + 1; 
                                                end 
                                              end 
                                            end 
                                          end 
                                        end 
                                      end 
                                    end 
                                  end 
                                end 
                              end 
                            end 
                          end 
                        end 
                      end 
                    end 
                  end 
                end 
              end 
            end 
          end 
        end 
      end 
    end 
  end; 
  outreal(1, sum); 
end 


algol

begin 

    comment library 1;

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




algol

begin 

    comment library 1;

    integer 
        i, 
        sum; 
    sum := 0; 
    for i := 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1, 
        i + 1 do 
        sum := sum + i; 
    outreal(1, sum); 
end 


kdf9