Bogosort in Haskell (cheating)