perl, 58 bytes

Result

WA

Duration

678ms

Code [DL]

$_=`dd`;/T/;s/.{$-[0]}\K./T/mg;s/K */K x length$&/ge;print

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          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          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          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      
          T          T          T          T      
          T          T          T          T      
          T          T          T          T      
          T          T          T          T      
          T          T          T          T      
    KKKKKKT          T          T          T      

stderr

3+1 records in
3+1 records out

strace