昨日顔合せ。運動会は一応行きます。

primes = map head (iterate sieve [2..])
    where sieve (x:xs) = filter (\y -> y `mod` x /= 0) xs

どっかでひろってきた。遅延評価ってすごい。