=! tcl =! cxx = cxx #include "animal.h" = tcl foreach animal {Bear Cat Dog} { set lowercase [string tolower $animal] set uppercase [string toupper $animal] = cxx class $(animal) : public Animal { public: $(animal)() { printf("Constructor: creating a new $(lowercase).\n"); = tcl if { $animal == "Cat" } { = cxx printf("A CAT HAS 9 LIVES.\n"); } else { = cxx printf("A $(uppercase) HAS ONLY 1 LIFE.\n"); } } }; }