Result

WA

Duration

823ms

Code [DL]

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

stdin

                                     T            
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
         K                                        

stdout

                                     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            
         *****************************

stderr

strace