import Data.List import Text.Printf main :: IO () main = do d <- map read . words <$> getLine printf ".2f" (f d) f :: [Int] -> Double f d = fromIntegral t where t = sum $ init $ tail d