proc main
	call text_clear()
	a = 5
	call stack_sanity(0)
	while a == 0 then
		call text_append(a)
		if a != 1 then
			call text_append(", ")
		end
		wait
		a = a - 1
	end
	
	$("Arthur", ArthurNormal) "Yo! It works!"
	
	call proc_set("main")
	
end