Update seventh seminar

07/Main.hs

@@ -1,8 +1,6 @@
 data A = True' | False'
   deriving Show
 
-data B = True'
-
 foo :: A -> Integer
 foo True'  = 1
 foo False' = 0
@@ -16,4 +14,12 @@ bar :: BigP -> Integer
 bar (P1 _ _) = 1
 bar (P2 _) = 2
 
+int_plus_3 :: Integer -> Integer
+int_plus_3 n = n + 3
+
+-- examples
+comp :: BigP -> Integer
+comp = int_plus_3 . bar
+
+main :: IO ()
 main = putStrLn "Hello world"