26 01 2010 Haskell Tweet
C/C++の課題丸投げ
sieve (x:xs) = x : sieve [y|y<-xs,y `mod` x /= 0] prime = sieve [2..]
