日本語でプログラミング（笑）

ghc-6.10.1を入れたので、

{-# OPTIONS_GHC -fglasgow-exts #-}
main = 素数 `を` 10 `個` 見せる
where 素数  = 篩 [2..]
篩 (素数:残り) = 素数 : 篩 [数|数<-残り,数 `割り切れない` 素数]
割り切れない 被除数 除数 = mod 被除数 除数 /= 
を xs n = return.take n$xs
個 = (>>=)::IO [Int] -> ([Int]->IO ())->IO ()
見せる = print