(command.Pipeline
  children: [
    (C {(svn)} {(status)} {(-q)} {(DQ ($ VSub_At '$@'))})
    (C {(grep)} {(SQ <'^[GM]'>)})
    (C {(cut)} {(-c)} {(8-)})
    (command.WhileUntil
      keyword: <KW_While while>
      cond: [(command.Sentence child:(C {(read)} {(file)}) terminator:<Op_Semi ';'>)]
      body: (command.DoGroup children:[(C {(meld)} {(DQ ($ VSub_DollarName '$file'))})])
    )
  ]
  negated: F
)