* 'from' loop example
function foo
	procedure
		from 0 to 3
			display "\tfoo"
		end

public function main
	linkage
		status word
	storage
		iterator ulong
	procedure returning status
		from 0 to 8
			display "hello"
			call foo
		end

		set status to 0