
'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
