A NaturalSort Implementation in Haskell