module Exercise_2 where


{-H2.1-}

index :: [Char] -> Char -> Int
index = undefined


{-H2.2-}

hasDraws :: [(String, Integer)] -> Bool
hasDraws = undefined


{-H2.3-}

intLists :: (Integer, Integer) -> Integer -> [[Integer]]
intLists = undefined


{-H2.4-}

{-WETT-}
decodeIntPairs :: [Integer] -> [(Integer, Integer)]
decodeIntPairs = undefined
{-TTEW-}