parseInt :: Parser Int
parseInt = satisfyMany1 isDigit >>= (\v -> return (read v :: Int))
parseInt :: Parser Int
parseInt = satisfyMany1 isDigit >>= (\v -> return (read v :: Int))
parseInt = satisfyMany1 isDigit >>= (\v -> return (read v :: Int))