let random_elem lst =
  let i = Random.int @@ length lst in
  nth lst i

let rec quicksort = function
    | [] -> []
    | l ->
      let smaller, larger = List.partition (fun y -> y < random_elem l) l in
      quicksort smaller @ (quicksort larger)