func divisible
	if (arg1 == 0)
		ret 0
	end
	ret (arg0 % arg1)
end

set a 0
set b 4
do
	set a (a + 1)
	divisible a b > i
	if (i == 0)
		print a
	end
while (a < 100)

print "All done!"