let optionnaly_add_to_list l = function
    | None -> l
    | Some v -> v::l