(List
  (Com {[LIT_CHARS echo]} {[SQ <LIT_CHARS "--- readproctitle insists on an argument">]}  )
  (Com {[LIT_CHARS readproctitle]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS /dev/null]} <REDIR_LESS "<"> 0),
    >
  )
  (Com {[LIT_CHARS echo]} {[VarSub ?]}  )
  (Com {[LIT_CHARS echo]} {[SQ <LIT_CHARS "--- readproctitle insists on last argument being at least five bytes">]}  )
  (Com {[LIT_CHARS readproctitle]} {[LIT_CHARS ..........]} {[LIT_CHARS four]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS /dev/null]} <REDIR_LESS "<"> 0),
    >
  )
  (Com {[LIT_CHARS echo]} {[VarSub ?]}  )
)