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