--7.2
addTwo :: [Int] -> Int
addTwo [] = 0
addTwo (x:[]) = x
addTwo (x:y:[]) = x + y