foreach shape {Rectangle Triangle Circle} { puts "class ${shape} : public Shape \{ " if { $shape == "Circle" } { puts "public:" } else { puts "private:" } puts " ${shape}() \{\}; // Default constructor. \};" }