Result

WA

Duration

1001ms

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 71-72:
Error: Syntax error: operator expected.

strace