WHILEe>0:
	READsRAW
	FORjIN{1..50}:
		IFs@j|1="T":PUTjINt
		IFs@j|1<>" ":PUTjINk
	WRITE 10**(t-k)>>t/