pickName (NGConcat ngs)      = do
  names <- mapM pickName ngs
  return $ concat names
pickName (NGConcat ngs)      = do
  names <- mapM pickName ngs
  return $ concat names
pickName (NGConcat ngs)      = do
  names <- mapM pickName ngs
  return $ concat names