print$a=$b=<>;$a=~tr/T/*/;<>;$c=$_,print$a for<>;$_=$a^$b^$c;s/\^ *(?=K)|(?<=K) *\^/'*'x length($&)/e;tr/5/K/;print