Help for this page
sub shifty { ... map { return ++$v } map { $v |= $v >> $_ } (1,2,4,8,16); }
sub shifty2 { ... return ++$v; }