module AdditionParser where

import Data.Char
import Parser

digit :: Parser Char Char
digit = one isDigit

number :: Parser Char String
number = list1(one isDigit)

addition :: Parser Char [String]
addition = number *** optional (item '+' *** addition >>> snd) >>> ints
        where
        ints (x, Just y) = x : y
        ints (x, _) = [x]

test = addition "2134+123+1+2+3"