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