Task

Create a function that returns the maximum value in a provided set of values,

where the number of values may not be known until run-time.




let my_max = function
    [] -> invalid_arg "empty list"
  | x::xs -> List.fold_left max x xs