(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:<Id.Redir_Less '<'> fd:-1 arg_word:{</dev/null>})]
            )
          terminator: <Id.Op_Semi _>
        )
        (C {<echo>} {($ Id.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:<Id.Redir_Less '<'> fd:-1 arg_word:{</dev/null>})]
            )
          terminator: <Id.Op_Semi _>
        )
        (C {<echo>} {($ Id.VSub_QMark '$?')})
      ]
    )
  ]
)