module Components.Util where

fst3 :: (a,b,c) -> a
fst3 (val,_,_) = val
snd3 :: (a,b,c) -> b
snd3 (_,val,_) = val
thd3 :: (a,b,c) -> c
thd3 (_,_,val) = val
fst4 :: (a,b,c,d) -> a
fst4 (val,_,_,_) = val
thd4 :: (a,b,c,d) -> c
thd4 (_,_,val,_) = val
fth4 :: (a,b,c,d) -> d
fth4 (_,_,_,val) = val