(import std.String :split)
(import std.List :map :reduce)

(let in (input))
(let numbers (map (split in " ") (fun (t) (toNumber t))))
(print (reduce numbers (fun (a b)
    (if (nil? b)
        a
        (+ a b)))))