ring, 101 bytes

Result

AC

Duration

825ms

Code [DL]

give s?s p=substr(s,"T")while 1 give t q=substr(t,"K")if q?copy(" ",q-1)+copy("1",p-q+1)exit ok?s end

stdin

                                T                 
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                            K                     

stdout

                                T                 
                                T                 
                                T                 
                                T                 
                                T                 
                                T                 
                                T                 
                                T                 
                                T                 
                                T                 
                                T                 
                            11111

stderr

strace