Haskell Quiz/Splitting the Loot