Add dependencies, play around with clouds/transparency layer

src/Tuple.hs

@@ -0,0 +1,16 @@
+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