'BEGIN'
    'SWITCH' s:=l;
    l: 'GOTO' s[1)
'END'

!ALGOL
'BEGIN'
    'ARRAY' a[1:10];
    a[1) := 1
'END'

!ALGOL
'BEGIN'
    'ARRAY' a[1:10];
    a[1] = 1
'END'


!ALGOL
'BEGIN'
    'INTEGER' a;
    'FOR' a=1 'DO'
'END'

!ALGOL
'BEGIN'
    'SWITCH' s=l1,l2;
    l1:l2:
'END'

!ALGOL
'BEGIN'
    'OWN' 'ARRAY' [1:10];
'END'


!ALGOL
'BEGIN'
    'INTEGER' i;
    'FOR' i:= 1 'STEP' 1 'DO'
'END'

!ALGOL

'BEGIN'

    'COMMENT' library 1;

    'INTEGER' 
        i; 
    'INTEGER' 'PROCEDURE' c; 
        'BEGIN'
        'FOR' c := 1 'STEP' 1 'UNTIL' 3 'DO'
            'BEGIN'
            i := i + 1; 
            'IF' i < 10 'THEN' 
                c := c + 1
            'END' 
        'END'; 

    i := 0; 
    outreal(1, c)
'END' 


!ALGOL
labelwithoutcolon
'BEGIN'
'END'



!ALGOL

'BEGIN'

    'COMMENT' library 1;

    'INTEGER' 
        i, 
        j, 
        k, 
        m; 
    'INTEGER' 'PROCEDURE' gpps(i, n, v, z); 
        'INTEGER' 
            i, 
            n, 
            v, 
            z; 
        'BEGIN'
        'FOR' i := 1 'STEP' 1 'UNTIL' n 'DO'
            v := z; 
        gpps := 1
        'END'; 

    'FOR' m := 1 'STEP' 1 'UNTIL' 25 'DO'
        'BEGIN'
        i := gpps(i, m + 1, k, 'IF' i = 1 'THEN' 1 'ELSE' k +
            gpps(j, k - 1, j, 'IF' (k + 1) - (j + 1) * ((k +
            1) 'DIV' (j + 1)) \= 0 'THEN' j 'ELSE' k * gpps(j, 1,
            i, i - 1))); 
        outreal(1, k)
        'END' 
'END' 


!KDF9
