my $a=197; my $b=1259; my $c=2017; my &test = -> $m { ($a * $m)%$c == $b }; my $seq := gather { while 1 { state $prev=0; $prev++ until test($prev); take $prev++; }; }; say $seq;