2b

Please code in OCAML!

Implement an OCaml function sum_top_4 : int list -> int list, which takes a list of integers and adds the sum of the top four elements to the head of the list (e.g. the input list [1;1;1;1;3;2] should become the output list [4;1;1;1;1;3;2]).

STARTER CODE:

let sum_top_4 (xs : int list) : int list =