randomPermute :: Int -> [a] -> [a]