(List
  (Com {[LIT_CHARS echo]} {[SQ <LIT_CHARS "--- envdir requires arguments">]}  )
  (Com {[LIT_CHARS envdir]} {[LIT_CHARS whatever]}  )
  (Com {[LIT_CHARS echo]} {[VarSub ?]}  )
  (Com {[LIT_CHARS echo]} {[SQ <LIT_CHARS "--- envdir complains if it cannot read directory">]}  )
  (Com {[LIT_CHARS ln]} {[LIT_CHARS -s]} {[LIT_CHARS env1]} {[LIT_CHARS env1]}  )
  (Com {[LIT_CHARS envdir]} {[LIT_CHARS env1]} {[LIT_CHARS echo]} {[LIT_CHARS yes]}  )
  (Com {[LIT_CHARS echo]} {[VarSub ?]}  )
  (Com {[LIT_CHARS echo]} {[SQ <LIT_CHARS "--- envdir complains if it cannot read file">]}  )
  (Com {[LIT_CHARS rm]} {[LIT_CHARS env1]}  )
  (Com {[LIT_CHARS mkdir]} {[LIT_CHARS env1]}  )
  (Com {[LIT_CHARS ln]} {[LIT_CHARS -s]} {[LIT_CHARS Message]} {[LIT_CHARS env1/Message]}  )
  (Com {[LIT_CHARS envdir]} {[LIT_CHARS env1]} {[LIT_CHARS echo]} {[LIT_CHARS yes]}  )
  (Com {[LIT_CHARS echo]} {[VarSub ?]}  )
  (Com {[LIT_CHARS echo]} {[SQ <LIT_CHARS "--- envdir adds variables">]}  )
  (Com {[LIT_CHARS rm]} {[LIT_CHARS env1/Message]}  )
  (Com {[LIT_CHARS echo]} {[LIT_CHARS This]} {[LIT_CHARS is]} {[LIT_CHARS a]} {[LIT_CHARS test.]} {[LIT_CHARS This]} {[LIT_CHARS is]} {[LIT_CHARS only]} {[LIT_CHARS a]} {[LIT_CHARS test.]}
    <
    (FilenameRedirectNode filename={[LIT_CHARS env1/Message]} <REDIR_GREAT ">"> 1),
    >
  )
  (Com {[LIT_CHARS envdir]} {[LIT_CHARS env1]} {[LIT_CHARS sh]} {[LIT_CHARS -c]} {[SQ <LIT_CHARS "echo $Message">]}  )
  (Com {[LIT_CHARS echo]} {[VarSub ?]}  )
  (Com {[LIT_CHARS echo]} {[SQ <LIT_CHARS "--- envdir removes variables">]}  )
  (Com {[LIT_CHARS mkdir]} {[LIT_CHARS env2]}  )
  (Com {[LIT_CHARS touch]} {[LIT_CHARS env2/Message]}  )
  (Com {[LIT_CHARS envdir]} {[LIT_CHARS env1]} {[LIT_CHARS envdir]} {[LIT_CHARS env2]} {[LIT_CHARS sh]} {[LIT_CHARS -c]} {[SQ <LIT_CHARS "echo $Message">]}  )
  (Com {[LIT_CHARS echo]} {[VarSub ?]}  )
)