my $seq := gather for 1000 .. 2000 -> $x { gather 26000 .. 27000 -> $y { if 65537*$x + 3511*$y == 1 || 65537*$x + -3511*$y == 1 || -65537*$x + 3511*$y == 1 || -65537*$x+-3511*$y==1 { take ($x, $y); } } }; say $seq[0];