module Control.Foldl.Transduce.Internal (
        -- * Strict datatypes 
        Pair(..)
    ,   Trio(..)
    ,   fstOf3
    ) where

data Pair a b = Pair !a !b

data Trio a b c = Trio !a !b !c

fstOf3 :: (a,b,c) -> a
fstOf3 (x,_,_) = x