let max_l (l : 'a list) : 'a = List.fold_left max (car l) (cdr l)