Haskell tournament sort is OK