@a=1..$$;$b=$=(@a=grep++$b%$,@a)[++$c]for%!;print"@a"