module Parser where parser xs = parser0 (words xs) parser0 [] = [] parser0 (x:xs) = ifNegative x:parser0 xs ifNegative (x:xs) = if (x == '-') then (negative xs) else (nonNegative (x:xs)) negative xs = (0 - fst (readDec xs!!0)) nonNegative xs = fst (readDec xs!!0)