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)