by@satos___jp
AC
730ms
open String let rec r s=let t=read_line()in s^"\n"^(try let p=index t 'K'in(make p ' ')^(make((index s 'T')-p+1)'*')with _->r s);;print_string(r(read_line()))
T K
T T T T T T T T T T T T T T T T T T T T T T T T T T T **************