module TDD (add) where

import qualified Data.Text as T

data ArgumentError = ArgumentError deriving (Show)

add :: String -> Integer
add s = sum $ map toI $ T.split (\d -> d == ',' || d == '\n') (T.pack s)

toI :: T.Text -> Integer
toI s = case reads (T.unpack s) of
	((n, _) : _) -> n
	_            -> 0