ocaml, 158 bytes

Result

WA

Duration

691ms

Code [DL]

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_endline(r(read_line()))

stdin

                                  T               
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
           K                                      

stdout

stderr

File "/volume/CODE", line 2, characters 32-116:
Warning 10: this expression should have type unit.
File "/volume/CODE", line 2, characters 117-146:
Error: This expression has type unit but an expression was expected of type
         string

strace