actFloat :: Integer -> Parser (Either Integer Rational)
fractFloat n  =  fractExponent n >>= return . Right


fractFloat :: Integer -> Parser (Either Integer Rational)
fractFloat n  =  fractExponent n >>= return . Right
fractFloat n  =  fractExponent n >>= return . Right