ring, 113 bytes

Result

WA

Duration

1203ms

Code [DL]

give s?s p=substr(s,"T")while 1 give t q=substr(t,"K")if q see copy(" ",q-1)see copy("1",p-q)?1 1/0 else?s ok end

stdin

           T                                      
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
  K                                               

stdout

           T                                      
           T                                      
           T                                      
           T                                      
           T                                      
           T                                      
           T                                      
           T                                      
  1111111111

Line 1 Error (R1) : Cann't divide by zero ! 
in file /tmp/code.ring 

stderr

strace