procedure main()
	every write(bstring(0|5|50|255|1285|9000))
end

procedure bstring(i)
	s := ""
	repeat{
		s := string(iand(i,1)) || s
		if (i := ishift(i,-1)) = 0 then break
	}
	return s
end