NR==1{sub("T.+","T");t=$0}NR>1{print t}END{sub("K.+","K");while(length($0)<length(t)){sub("K","KK")};print}