A : ('a -> 'b) -> 'a -> 'b
- map2 A [I, K 3, fn x => x + 1] [1,2,3]; > val it = [1, 3, 4] : int list