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