shuffle :: [a] -> IO [a]
のエレガントな実装を見せてください。