Please Do this in OCAML language and try to complete the program fully and without errors. Problem 4: Write maxrun, a function which returns the length of the longest sublist of negative or...

Please Do this in OCAML language and try to complete the program fully and without errors.

Problem 4:Write maxrun, a function which returns the length of the longest sublist of negative or non-negative numbers and a list of absolute values of the original list elements. Ensure that this list is in the same order.

To report multiple outputs, use a record. We’ll define this particular output record as run_output:

type run_output = { length : int; entries : int list; }

Template:

let maxrun (l:int list) : run_output = (** YOUR CODE HERE **)

Sample Unit Test

let out = moveNeg [8; -5; 3; 0; 10; -4] in if out.length = 3 && out.entries = [8; 5; 3; 0; 10; 4] then print_string "YAY" else raise (Failure "OOPS");