fst package:ihaskell

Extract the first component of a pair.