-- Number of Prime Numbers
-- source: https://hackersandevelopers.wordpress.com/2017/08/04/bases-matematicas-de-la-criptografia-asimetrica-1/
-- calculates the approximate quantity of prime numbers between 0 and a given number.
primeNums = \x -> truncate $ x / log x
main = print $ primeNums 100000