.say for (gather for ^Inf { my $a = (1 - 3511 * ($_ * 2)) / 65537; take ($_, $a) if $a.Int == $a; my $b = (1 - 3511 * ($_ * 2 + 1)) / 65537; take ($_, $b) if $b.Int == $b }).head: 20