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

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

main = sumTuple [(1.7,6.0),(4.3,-1.0),(9.1, 0.0)]