fn bin(a,b:true)
	var c:""
	while a>0 do
		c,a:tostring(a%2)+c,bit.rshift(a,1)
	cls
	if b then
		c:string.repeat("0",16-#c)+c
	cls
	return c
cls

var List: [5,50,9000]

iter Value of List do
	log(Value+": "+bin(Value,false))
cls