stream-fusion-0.1.2.5: tests/Examples/Sum.hs

import Data.List

main = print . sum . map read . lines =<< getContents