Source file pair.ml

1
2
3

let map f (x, y) =
  (f x, f y)