I have a list of numbers and want to get the list of distances between the numbers.
For example: 

```
[1; 3; 8; 10; 12] → [2; 5; 2; 2]

```

Here is my code:

```
let rec diffs lst acc =
  match List.length lst > 1 with
  | true ->
      let first = List.head lst
      let second = List.head (List.tail lst)
      diffs (List.tail lst) (List.append acc [second - first])
  | false -> acc

```

I am just wondering if there is any better solution ?