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