sumList :: [Int] -> Int
sumList = foldl (+) 0

main = print (sumList [1..10])