number :: Parser Int
number = read <$> some digit
  where digit = charMatch isDigit
number :: Parser Int
number = read <$> some digit
  where digit = charMatch isDigit
number = read <$> some digit
  where digit = charMatch isDigit