((= r[do(if(> _ 255)(r:trunc:/ _ 256))(writeb:mod _ 256)])(read))