Trivia

primes = 2 : [x | x <- [3,5..], all ((/= 0) . (mod x)) $ takeWhile ((<=x) . (^2)) primes]

Todo