A simple list shuffle example in haskell