unitC :: ReadP Const
unitC = do
  char lparen
  skipSC
  char rparen
  return UnitC
unitC :: ReadP Const
unitC = do
  char lparen
  skipSC
  char rparen
  return UnitC
unitC = do
  char lparen
  skipSC
  char rparen
  return UnitC