(List
  (Com {[LIT_CHARS set]} {[LIT_CHARS -o]} {[LIT_CHARS nounset]}  )
  (Com {[LIT_CHARS set]} {[LIT_CHARS -o]} {[LIT_CHARS errexit]}  )
  (FunctionDef count []
    (Pipeline
      (Com {[LIT_CHARS ls]} {[LIT_OTHER "*"] [LIT_CHARS .c]} {[LIT_OTHER "*"] [LIT_CHARS .h]} {[LIT_OTHER "*"] [LIT_CHARS .S]} {[LIT_OTHER "*"] [LIT_CHARS .pl]}      )
      (Com {[LIT_CHARS grep]} {[LIT_CHARS -v]} {[LIT_CHARS usertests.c]}      )
      (Com {[LIT_CHARS grep]} {[LIT_CHARS -v]} {[LIT_CHARS vectors.S]}      )
      (Com {[LIT_CHARS xargs]} {[LIT_CHARS wc]} {[LIT_CHARS -l]}      )
    )
  )
  (FunctionDef build []
    (Com {[LIT_CHARS time]} {[LIT_CHARS make]}    )
  )
  (FunctionDef run []
    (Com {[LIT_CHARS make]} {[LIT_CHARS qemu]} {[LIT_VAR_LIKE "QEMU="] [LIT_CHARS qemu-system-i386] =}    )
  )
  (FunctionDef build-sh2 []
    (Com {[LIT_CHARS gcc]} {[LIT_CHARS -v]} {[LIT_CHARS -o]} {[LIT_CHARS sh2_]} {[LIT_CHARS sh2.c]}    )
  )
  (FunctionDef sh2 []
    (List
      (Com {[LIT_CHARS build-sh2]}      )
      (Com {[LIT_CHARS time]} {[LIT_CHARS ./sh2_]}      )
    )
  )
  (FunctionDef host-demo []
    (List
      (Com {[LIT_CHARS gcc]} {[LIT_CHARS -o]} {[LIT_CHARS host-demo]} {[LIT_CHARS host-demo.c]}      )
      (Com {[LIT_CHARS ./host-demo]}      )
    )
  )
  (FunctionDef trace-build []
    (List
      (Com {[LIT_CHARS make]} {[LIT_CHARS clean]}      )
      (Com {[LIT_CHARS echo]} {[SQ <LIT_CHARS "----- sh.o">]}      )
      (Com {[LIT_CHARS make]} {[LIT_CHARS sh.o]}      )
      (Com {[LIT_CHARS echo]} {[SQ <LIT_CHARS "----- _sh">]}      )
      (Com {[LIT_CHARS make]} {[LIT_CHARS _sh]}      )
    )
  )
  (Com {[DQ [VarSub @]]}  )
)