map2 : ('a -> 'b -> 'c) -> 'a list -> 'b list -> 'c list
- map2 (curry op+) [1,2,3] [3,2,1]; > val it = [4, 4, 4] : int list