begin 
    procedure p(a ; ;
    p(1)
end 

algol
begin 
    array a[(0:3];
end 

algol
begin 
    if (true or (true ) then 
end 


algol
begin 
    l: goto (l]
end 

algol
begin 
integer i;
    for 1:=i do;
end 

algol
begin 
    procedure 1;;
    l;
end 


algol
begin 
    procedure p();;
end 

algol
begin 
    switch 0:=l;
    l: goto o[1]
end 

algol
begin 
    array a[if true then 1 : 10];
end 



algol
l,begin real a; end 

kdf9