$a=$\-1+($\=++$a%$m)for(($n,$m)=glob<>)..$n;print