perl -MDevel::Peek -e'$x=(1<<60)-1; for (1..6) { Dump $x; $x = $x *2 + 1}'