parseInt :: ReadP Double
parseInt = do a <- munch1 isDigit
              return ((read a) :: Double)
parseInt :: ReadP Double
parseInt = do a <- munch1 isDigit
              return ((read a) :: Double)
parseInt = do a <- munch1 isDigit
              return ((read a) :: Double)