map$%+=($p[$']=$p[$'/2]+$'%2)==$p[$_]&&$'&$_,//..$_ for 1..<>;print$%