use bignum;reverse^$_||($_-2)->bmodpow($_-1,$_)^1||print$_,$/for 2..2e4