print"$System.in".replaceAll(/<([ds][^p]*>)(.*?)<.\1/){x,y,z->z+'^H'*z.count}