READ a RAW PUT "" IN b WHILE "K"#b=0: READ b RAW WRITE a/ WHILE a|1=" ": WRITE b|1 PUT a@2 IN a IF b|1=" ": PUT b@2 IN b WRITE b