-- What is the 10 001st prime number?
import Euler
main = print $ primesTo 1000000 !! 10000