Module Checkit {
	Long A=1024
	While A>0 {
		Print A
		A/=2
		if a<500 then goto alfa
	}
	Print "not that"
alfa:	
	Print "ok"
}
Checkit
Module Checkit2 {
	Long A=1024
	While A>0
		Print A
		A/=2
		if a<500 then 10
	End While
	Print "not that"
10	Print "ok"
}
Checkit2
Module Checkit3 {
	A=(1,2,3,4,5)
	B=Each(A, -1, 1)
	While B
		Print Array(B), B^
	End While
}
Checkit3