let biggest l = match l with
  | [] -> failwith "Empty list"
  | x::q -> List.fold_left
    (fun acc a -> max acc a)
    x
    q
;;

assert (biggest [0; 7; 4] == 7);;