beads 1 program 'Binary Digits'
calc main_init
	loop across:[5, 50, 9000] val:v
		log to_str(v, base:2)