My goal here was to convert a `(int * int) list` to an `int list`. This is what I did:

```
let tuples_list_to_list l =
  let rec aux_tuples_to_list acc l =
    match l with
    | [] -> acc
    | x :: tl -> aux_tuples_to_list (fst x :: snd x :: acc) tl in
  aux_tuples_to_list [] l

```

I was wondering if there was a more "elegant" even though this is subjective or at least better, way to write my function. I was thinking about using `List.map` or `List.fold_left` but I was having issues figuring out I could use those two functions to do the same thing I did. Basically, I think it would be possible to have a one-liner instead of the whole function I wrote.

What do you think? Thanks