sumTuple :: [(Float, Float)] -> Float
sumTuple [] = 0.0
sumTuple n = sum [insideSum x | x <- n]
 where 
  insideSum :: (Float, Float) -> Float
  insideSum (a, b) = a + b

main = print ""