A + B

input/code.hs:2:1: warning: [-Wmissing-signatures]
    Top-level binding with no type signature: main :: IO ()

input/code.hs:5:5: warning: [-Wtype-defaults]
    * Defaulting the following constraints to type `Integer'
        (Show a0) arising from a use of `print' at input/code.hs:5:5-11
        (Num a0) arising from a use of `+' at input/code.hs:4:19-21
        (Read a0) arising from a use of `read' at input/code.hs:4:30-33
    * In a stmt of a 'do' block: print s
      In the expression:
        do { a <- getLine;
             let s = foldl (+) 0 (map read (words a));
             print s }
      In an equation for `main':
          main
            = do { a <- getLine;
                   let s = ...;
                   print s }

main = do
    a <- getLine
    let s = foldl (+) 0 (map read (words a))
    print s

Test 1

Verdict: ACCEPTED

Test 2

Verdict: ACCEPTED

Test 3

Verdict: ACCEPTED

Test 4

Verdict: ACCEPTED

Test 5

Verdict: ACCEPTED

Test 6

Verdict: ACCEPTED

Test 7

Verdict: ACCEPTED

Test 8

Verdict: ACCEPTED

Test 9

Verdict: ACCEPTED

Test 10

Verdict: ACCEPTED