https://youtu.be/UCdiG5nTiFY
#let rec append l1 l2 = match l1 with [] -> l2 | (h::t) -> h::(append t l2);;