use Modern::Perl;
use ntheory qw<nth_prime>;
say nth_prime(10_001);