neg True = False
neg False= True

getSecond (_,b,_) = b

sumList [] = 0
sumList (x:xs) = x + sumList xs

isTitle []     = False
isTitle (x:xs) = isUpper x && all isLower xs