live-sequencer-0.0.1: data/base/Tuple.hs

module Tuple where

data Pair a b = Pair a b ;

fst :: Pair a b -> a ;
fst ( Pair a _ ) = a ;

snd :: Pair a b -> b ;
snd ( Pair _ b ) = b ;