module Data.Tuple.Ext ( fst4
                      ) where

fst4 :: (a, b, c, d) -> a
fst4 :: forall a b c d. (a, b, c, d) -> a
fst4 (a
x, b
_, c
_, d
_) = a
x