(List
  (Com {[LIT_CHARS printf]} {[DQ [LIT_CHARS "Content-Type: text/%s"][\ LIT_ESCAPED_CHAR "\\n"]]} {[DQ [LIT_CHARS html]]})
  (Com {[LIT_CHARS echo]})
  (Com {[LIT_CHARS printf]} {[DQ [LIT_CHARS "%s"][\ LIT_ESCAPED_CHAR "\\n"]]} {[DQ [LIT_CHARS "001e# service=git-upload-pack"]]})
  (Com {[LIT_CHARS printf]} {[DQ [LIT_CHARS "%s"]]} {[DQ [LIT_CHARS 0000]]})
  (Com {[LIT_CHARS printf]} {[DQ [LIT_CHARS "%s%c%s%s"][\ LIT_ESCAPED_CHAR "\\n"]]} {[DQ [LIT_CHARS "00a58681d9f286a48b08f37b3a095330da16689e3693 HEAD"]]} {[LIT_CHARS 0]} {[DQ [LIT_CHARS " include-tag multi_ack_detailed multi_ack ofs-delta"]]} {[DQ [LIT_CHARS " side-band side-band-64k thin-pack no-progress shallow no-done "]]})
  (Com {[LIT_CHARS printf]} {[DQ [LIT_CHARS "%s"]]} {[DQ [LIT_CHARS 0000]]})
)