brainfuck-esotope, 168 bytes

Result

AC

Duration

884ms

Code [DL]

+[,.>++++++[<-------------->-]<]+[>++++++++++++++++++++++++++++++++++++++++++++++++++[>,+<<[>>->+<<<-]>>.<<+++++[>>---------------<<-]>>[>[<<<+>>>-]<[+]]>[-]<<-]>,+.<<]

Disassembly

p[0] = 1;
p[1] = 0;
while (p[0]) {
	p[0] = GETC();
	PUTC(p[0]);
	p[1] += 6;
	p[0] -= 14*p[1];
	p[1] = 0;
}
p[0] = 1;
p[2] = 0;
p[3] = 0;
while (p[0]) {
	p[1] += 50;
	while (p[1]) {
		p[2] = GETC();
		p[2] -= p[0]-1;
		p[3] += p[0];
		p[0] = 0;
		PUTC(p[2]);
		p[2] -= 75;
		if (p[2]) {
			p[0] += p[3];
			p[3] = 0;
			p[2] = 0;
		}
		p[2] = 0;
		p[3] = 0;
		--p[1];
	}
	p[2] = GETC();
	++p[2];
	PUTC(p[2]);
}

stdin

                          T                       
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                                                  
                   K                              

stdout

                          T                       
                          !                       
                          !                       
                          !                       
                          !                       
                          !                       
                          !                       
                          !                       
                   K!!!!!!!

stderr

strace