fst package:numeric-prelude

Extract the first component of a pair.