ring, 123 bytes

Result

TLE

Code [DL]

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

stdin

                                       T          
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                     K                            

stdout

stderr

strace