insideSum :: (Float, Float) -> Float
insideSum (a,b) = a + b

sumTuple :: [(Float, Float)] -> Float
sumTuple [] = 0
sumTuple (x:xs) = insideSum x + sumTuple xs

main = print insideSum 2.0,1.1