Ну я даже и на знаю, с чего начать.

Вот что было не так со следующим?

let mean lst =
    let count = ref 0 in
    let sum = List.fold_left (fun x1 x2 -> count := !count + 1; x1 +. x2) 0. lst in
    sum /. float_of_int !count
let l = [];;
Printf.printf "Mean=%g\n" (mean l)