use ocaml language .. write a function to count same element in a law in the list. your count function should satisfy the following sample running

for eaxample

# count [1;1;2;2;2;3];;

- : int = 3

# count [2;2;2];;

-: int = 2

# count [3;3;4;4;4;4;2;2];;

- : int = 5