Doing with ints what I used to do with Strs

ints.p6

my int $s = 0b111111111;
say $s.fmt("%024b");

repeat until $s == 0b111111111000000000000000 {
    my int $t = $s;
    my int $u = 0;
    for ^23 -> int $i {
        if $t % 0x4 == 0x1 {
            $s = (($t +& 0xFFFFFC +| 0x2) +< $i) +| $u;
            last;
        }
        elsif $t +& 1 {
            $u = ($u +< 1) +| 1;
        }
        $t +>= 1;
    }

    say $s.fmt("%024b");
}