WHILEe>0:
	READsRAW
	IF s@3|1=s@2|1:WRITE s@3|1
	IF s@3|1<>s@2|1:WRITE s@5|1