say ($_=+get)+1-2**grep 1,.base(2).comb