(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
    )
  ]
)