[1 of 1] Compiling Main             ( /in/foo.hs, /tmp/Main.o )

/in/foo.hs:3:16: error:
    * Couldn't match type `Int' with `[Char]'
      Expected type: String
        Actual type: Int
    * In the second argument of `($)', namely `sum li'
      In a stmt of a 'do' block: putStrLn $ sum li
      In the expression:
        do { li <- (map read . words) `fmap` getLine :: IO [Int];
             putStrLn $ sum li }