main = print $ length $ getPrime 1000000

getPrime x = reverse $ getPrime2 [2..x] [1]

getPrime2 [] acc = acc 
getPrime2 (h:t) acc = getPrime2 (filter (\x-> x `mod` h /=0)t) $ h:acc