-- $Id: sumcol.ghc,v 1.4 2001/02/24 23:49:59 doug Exp $
-- http://www.bagley.org/~doug/shootout/
-- from Julian Assange

module Main where
import Numeric(readDec)

main = interact (flip (++) "\n" . show . sum . nums . lines)
       where
       nums  = map (fst . head . readDec)