quotedChar :: ReadP Char
quotedChar = do
  char quote
  c <- do
    c <- get
    case c of
      '\\' -> do
        c <- get
        case c of
          'n'  -> return '\n'
          't'  -> return '\t'
          '\'' -> return '\''
          _    -> pfail
      _    -> return c
  char quote
  return c
quotedChar :: ReadP Char
quotedChar = do
  char quote
  c <- do
    c <- get
    case c of
      '\\' -> do
        c <- get
        case c of
          'n'  -> return '\n'
          't'  -> return '\t'
          '\'' -> return '\''
          _    -> pfail
      _    -> return c
  char quote
  return c
quotedChar = do
  char quote
  c <- do
    c <- get
    case c of
      '\\' -> do
        c <- get
        case c of
          'n'  -> return '\n'
          't'  -> return '\t'
          '\'' -> return '\''
          _    -> pfail
      _    -> return c
  char quote
  return c