(List
  (Com {[LIT_CHARS echo]} {[SQ <LIT_CHARS "--- fghack insists on an argument">]}  )
  (Com {[LIT_CHARS fghack]}  )
  (Com {[LIT_CHARS echo]} {[VarSub ?]}  )
  (Com {[LIT_CHARS echo]} {[SQ <LIT_CHARS "--- fghack complains if it cannot run program">]}  )
  (Com {[LIT_CHARS fghack]} {[LIT_CHARS ./nonexistent]}  )
  (Com {[LIT_CHARS echo]} {[VarSub ?]}  )
  (Com {[LIT_CHARS echo]} {[SQ <LIT_CHARS "--- fghack runs a program">]}  )
  (Com {[LIT_CHARS fghack]} {[LIT_CHARS sh]} {[LIT_CHARS -c]} {[SQ <LIT_CHARS "echo hi &">]}  )
  (Com {[LIT_CHARS echo]} {[VarSub ?]}  )
)