rev_itlist : ('a -> 'b -> 'b) -> 'a list -> 'b -> 'b
# rev_itlist (fun x y -> x * y) [1;2;3;4] 1;; val it : int = 24