C : ('a -> 'b -> 'c) -> 'b -> 'a -> 'c
- map (C cons []) [1,2,3]; > val it = [[1], [2], [3]] : int list list