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

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