oat :: Parser Rational
float =  (decimal >>= fractExponent) <* whiteSpace


float :: Parser Rational
float =  (decimal >>= fractExponent) <* whiteSpace
float =  (decimal >>= fractExponent) <* whiteSpace