(List
  (Com {[LIT_CHARS set]} {[LIT_CHARS -o]} {[LIT_CHARS nounset]})
  (Com {[LIT_CHARS set]} {[LIT_CHARS -o]} {[LIT_CHARS errexit]})
  (FunctionDef CheckFile []
    (List
      (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "========================================"]]})
      (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "checking "][VarSub 1]]})
      (Com {[LIT_CHARS echo]} {[DQ [LIT_CHARS "========================================"]]})
      (Com {[LIT_CHARS tidy]} {[LIT_CHARS -e]} {[LIT_CHARS -q]} {[VarSub 1]})
    )
  )
  (If
    (Com {[LIT_OTHER "["]} {[VarSub #]} {[LIT_CHARS -eq]} {[LIT_CHARS 0]} {[LIT_OTHER "]"]})
    (For file [{[LIT_OTHER "*"] [LIT_CHARS .html]}])
      (Com {[LIT_CHARS CheckFile]} {[VarSub file]})
    )
    (ElseTrue)
    (For file [{[VarSub *]}])
      (Com {[LIT_CHARS CheckFile]} {[VarSub file]})
    )
  )
)