identifier :: Parser Text
identifier = do
  n <- pack <$> string "cpu" <?> "identifier"
  i <- digit <|> space <?> "identifier"
  return $ n `append` if i == ' '
                      then empty
                      else singleton i
identifier :: Parser Text
identifier = do
  n <- pack <$> string "cpu" <?> "identifier"
  i <- digit <|> space <?> "identifier"
  return $ n `append` if i == ' '
                      then empty
                      else singleton i
identifier = do
  n <- pack <$> string "cpu" <?> "identifier"
  i <- digit <|> space <?> "identifier"
  return $ n `append` if i == ' '
                      then empty
                      else singleton i