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