sub to_bin {
	
	my( $num , $len ) = ( shift , 0 );
	while( $num >> $len ){ $len++ ;}
	return reverse map {( $num & 1 << $_ ) ? "1" : "0";}(0..$len-1);
	
}