pScientific :: Lexer Scientific
pScientific = do
    n <- signed (return ()) scientific
    p <- isJust <$> optional (char '%')
    return $ if p then n / 100 else n


pScientific :: Lexer Scientific
pScientific = do
    n <- signed (return ()) scientific
    p <- isJust <$> optional (char '%')
    return $ if p then n / 100 else n


pScientific = do
    n <- signed (return ()) scientific
    p <- isJust <$> optional (char '%')
    return $ if p then n / 100 else n

