let map f = map2 (f, f)