(Pipeline
  children: [
    (C {(locale)} {(-a)})
    (C {(grep)} {(_)})
    (C {(uniq)} {(-w5)})
    (WhileUntil
      keyword: <KW_While while>
      cond: [(Sentence child:(C {(read)} {(lang)}) terminator:<Op_Semi ';'>)]
      body: 
        (DoGroup
          children: [
            (Sentence
              child: (C {(echo)} {(-ne)} {(DQ ($ VSub_Name '$lang') (Lit_Other '\\') (t))})
              terminator: <Op_Semi ';'>
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:locale_info)
                  op: Equal
                  rhs: 
                    {
                      (CommandSubPart
                        command_list: 
                          (CommandList
                            children: [
                              (SimpleCommand
                                words: [{(locale)} {(territory)} {(language)}]
                                redirects: [(Redir op:<Redir_Great '2>'> fd:2 arg_word:{(/dev/null)})]
                                more_env: [
                                  (env_pair
                                    name: LANG
                                    val: {($ VSub_Name '$lang')}
                                    spids: [63]
                                  )
                                ]
                              )
                            ]
                          )
                        left_token: <Left_Backtick '`'>
                        spids: [62 74]
                      )
                    }
                  spids: [61]
                )
              ]
              spids: [61]
            )
            (Pipeline
              children: [
                (C {(echo)} {($ VSub_Name '$locale_info')})
                (C {(sed)} {(SQ <'s/\\(.*\\) \\(.*\\)/\\1 (\\2)/'>)})
              ]
              negated: F
            )
          ]
          spids: [46 89]
        )
    )
    (C {(sort)} {(-k2)})
  ]
  negated: F
)