for (($m,$n,$r)=@ARGV, $jl=[1..$n]; @$jl>$r; shift @$jl){
push(@$jl,shift @$jl) for (1 .. $m) 
}
print "avoid positions " , join(" ", @$jl) . "\n";