(CommandList
  children: [
    (Pipeline
      children: [
        (C {(svn)} {(status)} {(-q)} {(DQ ($ VSub_At '$@'))})
        (C {(grep)} {(SQ <'^[GM]'>)})
        (C {(cut)} {(-c)} {(8-)})
        (While
          cond: [(Sentence child:(C {(read)} {(file)}) terminator:<Op_Semi ';'>)]
          body: (DoGroup children:[(C {(meld)} {(DQ ($ VSub_Name '$file'))})] spids:[8695])
        )
      ]
      negated: False
    )
  ]
)