Download this file
FUNCTION func:BOOL; i := 0; WHILE i < 5; DO x := x / 2; i:=i+1; END_WHILE END_FUNCTION