乱数生成が遅いってどこかで見たような、Haskell