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