nptools-0.1: summ.hs

import System.Environment
import Control.Monad
main :: IO ()
main = do
  argc <- length `fmap` getArgs
  when (argc /= 0) $ fail "summ does not expect arguments, it is reading from stdin"
  putStrLn . show . sum . map (read :: String -> Integer) . lines =<< getContents