Submission by @kurgm (brainfuck-esotope, 140 bytes)

Result

Duration

766ms

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[2] += 10;
	p[1] += 5*p[2];
	p[2] = 0;
	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

stdout

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

stderr

strace

Created by @hakatashi

GitHub

Issues