set tag ""
while {1} {
	set aline [gets file0]
	if {[eof file0]} { exit}
	regsub -all {<tag>} $aline {<b>\&lt;} aline
	regsub -all {</tag>} $aline {\&gt;</b>} aline
	regsub -all {<arg>} $aline {<i>} aline
	regsub -all {</arg>} $aline {</i>} aline
	puts $aline
}