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

ghc-6.10.1を入れたので、

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