:: (a -> c) -> (a, b) -> (c, b) package:extra

Update the first component of a pair.
first succ (1,"test") == (2,"test")