let rec QuickSort(input : List<int>) =
  match input with
  | [] -> []
  | head :: tail ->
      let smaller = qsort (tail |> List.filter(fun e -> e <= x))
      let larger = qsort (tail |> List.filter(fun e -> e >= x))
      smaller @ [head] @ larger