1X input.tcl /^oo::class create X {$/;" c language:TclOO 2Y input.tcl /^class create Y {$/;" c language:TclOO 3