say ($_=+get)+1-2**(.base(2)~~m:g/1/)