
module Main where
import System.Environment
import System.Directory
import System.IO
import Data.List
import Data.Word
import Data.Bits
import Data.Char
import Control.Monad
import Control.Exception
import Data.List.Split

getPrimes ::  [Integer] -> [Integer]
getPrimes [] = []
getPrimes (p:ps) =  p : (getPrimes (filter (\x -> (x `mod` p) /= 0) ps))
 
main = putStrLn ("Answer: " ++ (show ((getPrimes [2 .. 1000000]) !! 10000) ))
