$"++;_:while(++$"){$"%$_||next(_)for 2..$"/2;print$",$/}