Haskell でスリープソート

Haskeller から見れば、標準出力に表示なんてダサい。orz

import Control.Concurrent

sleepSort :: [Int] -> IO ()
sleepSort = mapM_ (forkIO . sleepy) 
  where
    sleepy n = threadDelay (n * 1000) >> print n