let min_l (l : 'a list) : 'a = List.fold_left min (car l) (cdr l)