#!perl -p
/T/?$r=$':s/.$r/T\n/;1while s/K /KK/