Update ListShuffle.hs