-- | Apply a single function to both components of a pair.
--
-- > both succ (1,2) == (2,3)
both :: (a -> b) -> (a, a) -> (b, b)
both f (x,y) = (f x, f y)
both :: (a -> b) -> (a, a) -> (b, b)
both f (x,y) = (f x, f y)
both f (x,y) = (f x, f y)