$/=0;$_=<>;s/([^T]{50})./$1T/g;0while s/K /KK/g;print