let rec shuffle l = if l = [] then [] else let i = Random.int (List.length l) in let l' = (rmindex l i) in (List.nth l i)::(shuffle l')