elixir, 125 bytes

Result

AC

Duration

1738ms

Code [DL]

f=fn s,i,j,f->case IO.getn(s,1)do
:eof->1
t->f.(i<50&&i*j==0&&t||1,i<50&&"T"!=t&&i+1||0,t=="K"&&1||i*j,f)end
end
f.("",0,0,f)

stdin

                 T                                
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
      K                                           

stdout

                 T                                
                 1                                
                 1                                
                 1                                
                 1                                
                 1                                
                 1                                
                 1                                
                 1                                
                 1                                
                 1                                
      K11111111111                                

stderr

strace