test-ok.src

mainprog muc;
int[100] x,z123,efg01230,hi,e1;
float y,a,b,c,d,ff,ml2,bob;

procedure cdb (xx:int;ck:float);
	int[100] x, z123;
	begin
		a=.3
	end

function aps1234iodfj1324(xx:int;ck:float;ckckck:int) : int;
	int[100] x, z123;
	begin
		x[0]=3.12;
		if ckckck <= 1:
			begin
				cdb(123123,1);
				ckckck = 1;
				return 2
			end
		elif ckckck == 2:
			begin
				cdb(-1,+1)
			end
	end

function plus(x: int; y: int): int;
	begin
		return x+y
	end

begin
	print(plus(32094,-1384));
	print(e1[e1[3*e1[e1[e1[e1[e1[50]-2]]]+1]]]);

	for ml2 in z123:
	begin
		ff = a + b * c - d / efg01230[1];
		if ff <= 1:
			begin
				cdb(123123,1);
				ff = 1
			end
		elif ff == 2:
			begin
				cdb(-1,+1)
			end
		elif 2>1:
			print(hi[1])
		else:
			begin
				y = aps1234iodfj1324(1, 2, 3);
				while 1!=2:
					begin
						aps1234iodfj1324(-1123123.23231241240000, 2, 3);
						x[90]=1
					end
			end
	end;

	for x[5] in e1:
		begin
			print(e1[e1[e1[e1[e1[e1[e1[50]]]]]]]);
			d = 3. + 123 - .3 * 3.112 / 94.24230923540909;
			e1[2] = b
		end
	else:
		begin
			print(a+x[1]/b)
		end;

	print(bob == ml2);
	print(1 in x)
end