itlist : ('a -> 'b -> 'b) -> 'a list -> 'b -> 'b
f x1 (f x2 ... (f xn y)...)
# itlist (+) [1;2;3;4;5] 0;; val it : int = 15 # itlist (+) [1;2;3;4;5] 6;; val it : int = 21