map2 : ('a -> 'b -> 'c) -> 'a list -> 'b list -> 'c list
# map2 (+) [1;2;3] [30;20;10];; val it : int list = [31; 22; 13]