module Exercise_7 where

{- Template NUR fuer die Hausaufgaben! -}

{- Library -- nicht veraendern --}

data Shape =
  Circle Integer |
  Rectangle Integer Integer
  deriving (Show, Eq)

{- Ende Library -}

{- H1 -}

area :: Shape -> Maybe Integer
area shape = undefined

rectArea :: [Shape] -> Integer
rectArea xs = undefined

{- H2 -}

{- H3 -}

{-WETT-}
fixTypos :: [String] -> [String] -> [String]
fixTypos vocabs words = undefined
{-TTEW-}