let creer_lcp () = [];;

let taille_lcp = List.length;;

let acces_lcp = List.nth;;

let rec inserer_lcp l i x = match l,i with
  | l, 0 -> x::l
  | x::q, i -> x::inserer_lcp q (i-1) x
  | _ -> invalid_arg ""
;;

let rec retirer_lcp l i = match l,i with
  | _::q, 0 -> q
  | x::q, i -> x::retirer_lcp q (i-1)
  | _ -> invalid_arg ""
;;