Fun1.Smart
val map : ('r -> 'a -> 'a) -> 'r -> 'a array -> 'a array
Fun1.Smart.map f x v = Smart.map (f x) v