(command.CommandList
  children: [
    (C {<echo>} {(SQ <'--- readproctitle insists on an argument'>)})
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.Simple
              words: [{<readproctitle>}]
              redirects: [(redir op:<Id.Redir_Less '<'> loc:(redir_loc.Fd fd:0) arg:{<'/dev/null'>})]
              do_fork: T
            )
          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 op:<Id.Redir_Less '<'> loc:(redir_loc.Fd fd:0) arg:{<'/dev/null'>})]
              do_fork: T
            )
          terminator: <Id.Op_Semi _>
        )
        (C {<echo>} {($ Id.VSub_QMark '$?')})
      ]
    )
  ]
)