begin integer c,i,t,k;t:=-1;a:c:=rank(inchar);if c=84then t:=i;if c=75then k:=1;outchar(if t=i or k=1then'T'else' ');i:=i-i//80*80+1;if i<=t or k=0then goto a;end