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

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

main = do
	insideSum (1.1,2.2)
	print "a"