octal :: Parser Double
octal = (*) <$> factor <*> (octalToDouble <$> octalParts)
octal :: Parser Double
octal = (*) <$> factor <*> (octalToDouble <$> octalParts)
octal = (*) <$> factor <*> (octalToDouble <$> octalParts)