ocaml, 171 bytes

Result

WA

Duration

716ms

Code [DL]

open String
let rec f s t=try let t=read_line()in print_endline s;f s t with _->index s 'T'+1|>sub((index t 'K'|>sub t 0)^make 99 '*')|>print_string
let _=f(read_line())""

stdin

                                         T        
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
           K                                      

stdout

stderr

File "/volume/CODE", line 2, characters 124-136:
Error: This expression has type string -> unit
       but an expression was expected of type (int -> string) -> 'a
       Type string is not compatible with type int -> string 

strace