(* Définir une fonction pour calculer la somme des éléments d'une liste *)
let rec somme_liste lst =
  match lst with
  | [] -> 0          (* Si la liste est vide, la somme est 0 *)
  | x :: xs -> x + somme_liste xs  (* Ajouter le premier élément à la somme des éléments restants *)
 
(* Fonction principale *)
let () =
  let ma_liste = [1; 2; 3; 4; 5] in
  let resultat = somme_liste ma_liste in
  Printf.printf "La somme de la liste est : %d\n" resultat
(* your code goes here *)

KCogRMOpZmluaXIgdW5lIGZvbmN0aW9uIHBvdXIgY2FsY3VsZXIgbGEgc29tbWUgZGVzIMOpbMOpbWVudHMgZCd1bmUgbGlzdGUgKikKbGV0IHJlYyBzb21tZV9saXN0ZSBsc3QgPQogIG1hdGNoIGxzdCB3aXRoCiAgfCBbXSAtPiAwICAgICAgICAgICgqIFNpIGxhIGxpc3RlIGVzdCB2aWRlLCBsYSBzb21tZSBlc3QgMCAqKQogIHwgeCA6OiB4cyAtPiB4ICsgc29tbWVfbGlzdGUgeHMgICgqIEFqb3V0ZXIgbGUgcHJlbWllciDDqWzDqW1lbnQgw6AgbGEgc29tbWUgZGVzIMOpbMOpbWVudHMgcmVzdGFudHMgKikKCigqIEZvbmN0aW9uIHByaW5jaXBhbGUgKikKbGV0ICgpID0KICBsZXQgbWFfbGlzdGUgPSBbMTsgMjsgMzsgNDsgNV0gaW4KICBsZXQgcmVzdWx0YXQgPSBzb21tZV9saXN0ZSBtYV9saXN0ZSBpbgogIFByaW50Zi5wcmludGYgIkxhIHNvbW1lIGRlIGxhIGxpc3RlIGVzdCA6ICVkXG4iIHJlc3VsdGF0CigqIHlvdXIgY29kZSBnb2VzIGhlcmUgKik=