define('bin(n,r)') :(bin_end)
bin   	bin = le(n,0) r :s(return)
	bin = bin(n / 2, REMDR(n,2) r) :(return)
bin_end

	output = bin(5)
	output = bin(50)
	output = bin(9000)
end