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