[i]=strchr(l=fgetl(0),"T");
do disp(l);until[t]=strchr(k=fgets(0),"K")
disp([substr(k,1,t),repmat(['*'],1,i-t)])