parseRadixNumber :: String -> ReadS Integer -> Parser LispVal
parseRadixNumber chars decimalize = try $ prefix *> fmap numberfy digits
  where
    prefix = char '#' *> char 'o'
    numberfy = Number . fst . head . decimalize
    digits = many1 (oneOf chars)
parseRadixNumber :: String -> ReadS Integer -> Parser LispVal
parseRadixNumber chars decimalize = try $ prefix *> fmap numberfy digits
  where
    prefix = char '#' *> char 'o'
    numberfy = Number . fst . head . decimalize
    digits = many1 (oneOf chars)
parseRadixNumber chars decimalize = try $ prefix *> fmap numberfy digits
  where
    prefix = char '#' *> char 'o'
    numberfy = Number . fst . head . decimalize
    digits = many1 (oneOf chars)