Please Do this inOCAML language andtry tocompletetheprogram fully and without errors (Don't waste my answer with Wrong or inappropriate answers and it will be reported).

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. Well 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");