module Data.Tuple.Extra where -- | Swap tuple's elements. swap :: (t1, t) -> (t, t1) swap (a,b) = (b,a)