module Tuple
    ( trip1
    , trip2
    , trip3
    )
  where

trip1 :: (a,b,c) -> a
{-# INLINE trip1 #-}
trip1 (x,_,_) = x
trip2 :: (a,b,c) -> b
{-# INLINE trip2 #-}
trip2 (_,x,_) = x
trip3 :: (a,b,c) -> c
{-# INLINE trip3 #-}
trip3 (_,_,x) = x
