rev_itlist : ('a -> 'b -> 'b) -> 'a list -> 'b -> 'b
- rev_itlist (curry op * ) [1,2,3,4] 1; > val it = 24 : int