:: (a -> a) -> a -> [a] package:product-profunctors

A challenge from a Clojurist on Hacker News (https://news.ycombinator.com/item?id=23939350)

> cl_map (uncurry (+)) ([1,2,3], [4,5,6])
[5,7,9]

> cl_map (+3) [1,2,3]
[4,5,6]

> let max3 (x, y, z) = x `max` y `max` z
> cl_map max3 ([1,20], [3,4], [5,6])
[5,20]