import System.Environment
main = print . sum =<< mapM ((return' . length . lines =<<) . readFile) =<< getArgs
  where return' x = x `seq` return x