[Haskell] Beautiful concurrency: Santa Claus v2