hsprimes :: [Integer] primes = sieve [2..] where sieve (p:xs) = p : sieve [x|x <- xs, x `mod` p > 0]
hs-- 37打基本型 p=f[2..];f(p:x)=p:f[n|n<-x,mod n p>0]