by@n4o847
AC
730ms
#!perl -p /T/?$r=$':s/.$r/T\n/;1while s/K /KK/
T K
T T T T T T T T T T KKKKKKKKKKT