(command.CommandList
  children: [
    (C {(echo)} {(SQ <'--- readproctitle insists on an argument'>)})
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.Simple
              words: [{(readproctitle)}]
              redirects: [(redir.Redir op:<Redir_Less '<'> fd:16777215 arg_word:{(/dev/null)})]
            )
          terminator: <Op_Semi ';'>
        )
        (C {(echo)} {($ VSub_QMark '$?')})
      ]
    )
    (C {(echo)} {(SQ <'--- readproctitle insists on last argument being at least five bytes'>)})
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.Simple
              words: [{(readproctitle)} {(..........)} {(four)}]
              redirects: [(redir.Redir op:<Redir_Less '<'> fd:16777215 arg_word:{(/dev/null)})]
            )
          terminator: <Op_Semi ';'>
        )
        (C {(echo)} {($ VSub_QMark '$?')})
      ]
    )
  ]
)